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Disziplin ist alles 


OMEEEEN Blaise Pascal 1626-1602 EEE 


IR) 


Als Mathematiker, Wis- 


senschaftler und Phi- 
losoph entwickelte 


laise Pascal (1623- 


1662) im Jahre 1642 die 
erste mechanische Re- 
chenmaschine. Die Pro- 


g 


rammiersprache PAS- 


CAL wurde zu Ehren 


d 


ieses Beitrags zur 


Computerwissenschaft 
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ach ihm benannt. 


Die wesentlichen 
Details von Pascal 


e Vollständig freies 
Format und freie Ge- 
staltung des Pro- 
grammtextes 

© Flexible Bedingun- 
gen bei der Benen- 
nung von Programm- 
objekten 

® Die Möglichkeit zur 
Definition neuer Be- 
fehlswörter 

© Einfache und ein- 
heitliche Syntax 

© Modulare Pro- 
grammstruktur 

© Flexible Kontrolle 
von Daten und Berech- 
nungen 

e Sehr schnelle Com- 
pilierung sowie Fehler- 
Diagnose 

e Ein kleiner, hocheffi- 
zienter Compiler 
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Mit diesem Artikel beginnt eine Serie über PASCAL. Wir werden uns 
mit den Gedanken und Prinzipien, die zur Entwicklung 

führten, beschäftigen. Oft als „streng diszipliniert“ bezeichnet, wurde 
PASCAL entworfen, um gute Programmier-Techniken zu fördern. 


ie Programmiersprache PASCAL wurde ım 
Jahre 1970 von Professor Niklaus Wiırth ın 
Zünch entwickelt. Die Sprache erhielt den Na- 
men eınes französıschen Mathematikers und 
Philosophen des 17. Jahrhunderts — Blaıse Pas- 
cal —, der die erste mechanische Rechenma- 
schine mit den vier Grundfunktionen erfunden 
hatte. Die Sprache PASCAL wurde durch AL- 
GOL 60 stark beeinflußt und war eine direkte 
Antwort von Wırth auf dıe „überzüchtete" und 
komplexe Version ALGOL 68. Er verkündete, 
PASCAL würde: 

® Programmstrukturen und Konzepte präzise 
auszudrücken erlauben; 

@® demonstrieren, daß eine kleine, maschinen- 
unabhängige Sprache mit einem flexiblen Satz 
an Daten, Änweisungen und Programmstruktu- 
rıerungs-Details als allgemeines Problemlö- 
sungswerkzeug verwendet werden kann; 

® beı der Organisation von großen Program- 
men und komplexen Software-Projekten grö- 
ßere Sicherheit bieten; 

® iiber umfassende Fehlerprüfroutinen verfü- 
gen (speziell während der Compilierung) und 
dadurch ıdeal als Lehrsprache für Anfänger 
verwendbar seın; 

® sınnvoll auf Microcomputern eingesetzt wer- 
den können. 

Alle dıese Vorsätze sınd mıt großem Erfolg 
realisiert worden. Ein kleiner PASCAL-Compı- 
ler belegt ın der Regel etwa 25 KByte. Obwohl 
PASCAL nur über ein kleines Vokabular ver- 
fügt, das leicht erlernbar ist, ist es trotzdem viel 
leıstungsstärker als manche andere Compu- 
tersprache. Viel wichtiger ıst Jedoch, daß PAS- 
CAL ım Ausdruck erheblich stärker ist. Dies 
gilt zum einen für die Art, ın der Algorithmen 
geschrieben werden können, und zum ande- 
ren für dıe Einfachheit, mit der Daten um- 
schrieben werden können, egal, wie komplı- 
ziert sie sınd. 

Vielleicht sogar der größte Vorzug von PAS- 
CAL ıst dıe eben erwähnte einfache Aus- 
drucksweise für ÄAlgorıthmen. Sıe können so 
programmiert werden, wie man über sıe nach- 
denkt. Diese Freiheit beim Programmieren 
macht PASCAL zu eınem ıdealen Problemlö- 
sungswerkzeug und nicht zu einem weiteren 
Bestandteil des betreffenden Problems. Die 
Sprache hat viele weitere Vorteile. PASCAL ist 
eine Compilersprache, was nıcht nur bedeutet, 
daß dıe Programmausführung viel schneller 


wird, sondern auch, daß kein Speicherplatz un- 
nötig mit Interpretern und Programmtexten be- 
legt wırd. — Alles was Sıe brauchen, ist der 
compilierte „Object"-Code. 

In der Tat ıst es gerade bei langen Program- 
men viel einfacher, in PASCAL statt ın BASIC 
zu programmieren. PASCAL läßt eine „schlam- 
pige" Programmierung gar nicht erst zu. Be- 
trachtet man die Sache etwas näher, so ist die 
aufgezwungene Disziplin nicht strenger als 
die, dıe zur effektiven und sıcheren Organisa- 
tion eines Programms ohnehin notwendig ist. 
Die eingesparte Zeit beim späteren „Debug- 
gen" eines Programms wiegt dies bei weitem 
auf. Ferner bedeutet dies, daß eın Grundwis- 
sen über PASCAL eın enormer Vorteil für das 
Verständnis der Sprachen der nächsten De- 
kade ıst — beispielsweise bei Modula-2, OC- 
CAM oder ADA. 

Ein Programmierer, der von BASIC auf PAS- 
CAL umsteigen will, wird bei einem ersten 
Blick auf ein PASCAL-Programm den krasse- 
sten Unterschied ın den sehr umfangreichen 
und eigenartig aussehenden Definitionen (die 
manchmal fast sınnlos erscheinen) sehen. Der 
gesamte Anfang eınes längeren PASCAL-Pro- 
gramms scheint absolut nichts zu „tun“. Dies 
lıegt zum Teil daran, daß Sıe eigene Worte ın- 
nerhalb der Programmiersprache verwenden 
können. Eine entsprechende Definition muß 
selbstverständlich vor dem eigentlichen Pro- 
grammstart erfolgen, damit PASCAL dıe Worte 
als Befehle ınterpretieren kann. PÄSCAL er- 
möglıcht Ihnen so, am AÄnfang eınes Pro- 
gramms neue Befehle festzulegen, wie 
ClearScreen oder Pause (Anzahl der Sekun- 
den), und diese dann ım eigentlichen Pro- 
gramm zu verwenden. Das sıeht dann so aus: 

begin 

ClearScreen; 
Write (“Hallo!"); 
Pause (3); 

.... USW. 


Überraschend einfach 


PASCAL überrascht den Programmierer mit 
einer ausgezeichneten Betrachtung des Kon- 
zepts eines Computersystems, so daß Daten 
und Berechnungen ın eıner natürlichen, logı- 
schen Form definiert und ausgedrückt werden 
können. 


Das Diagramm, das den „Stammbaum“ hö- 
herer Programmiersprachen zeigt, beinhaltet 
nur die Haupteinflüsse der wichtigsten 
befehlsorientierten Compilersprachen. Daher 
werden funktionelle Sprachen, wıe LISP oder 
PROLOG, nicht berücksichtigt. Auch FORTH 
wird nicht aufgeführt, da es kaum klassıfizier- 
bar ıst. Der Hauptstamm beginnt mit ALGOL 
60. Danach kommt kaum eine moderne Spra- 
che, die nıcht dırekt oder ındirekt von PASCAL 
beeinflußt wurde. 

Neben dem Eınsatz als Lehrsprache eignet 
sıch PASCAL auch für kommerzielle und sy- 
stemspezifische Anwendungen. PASCAL ıst 
für dıe Entwicklung von Finanzpaketen und 
Compilern verwendet worden. Das „p-system", 
das an der UCSD (Universität von Kalifornien ın 
San Diego) gegen Ende der siebziger Jahre 
entworfen wurde, ist sowohl ın PASCAL entwik- 
kelt als auch geschrieben worden. Die Soft- 
ware für Lisa und Macıntosh von Apple wurde, 
einschließlich der Betriebssysteme, haupt- 
sächlich in PASCAL bzw. der abgeleiteten 
Sprache CLASCAL geschrieben. Viele tau- 
send professionelle Programmierer haben sıch 


1954-57 FORTRAN (FOR- 
mula TRANslator) 

Die älteste höhere Pro- 
grammiersprache, sehr 
beliebt bei Wissenschaft- 
lern und Ingenieuren für 
numerische und tabellan- 
sche Berechnungen. 


1959-60 COBOL (COmmon 
Business Orientated | 
Language) 

Dies ist immer noch die 
gebräuchlichste Sprache, 
wenn es um Datei-Hand- 
habung und Berechnung 
großer Datenmengen geht. 


1963-64 PL/1 (Program- 
ming Language |) 

Dies war ein Versuch, alle 
drei vorhergehenden 
Sprachen zusammenzu- 
fassen. 


1968-71 PASCAL 

Eine gut strukturierte, 
„Kleine“ und anpassungs- 
fähige allgemein verwend- 
bare Sprache So entwor- 
fen, daß sie trotz ihrer Ein- 


effizient arbeiten kann. | 


v 


| Concurrent Pascal | 
| Concurrent PASCAL 


Eine Version von PASCAL, 
die für Spezialanwendun- 
gen von Per Brinch Han- 
son erweitert wurde. 1977 UCSD-PASCAL 


Eine erweiterte 


Zersion für System- u 
nwendungen. 
i Ada 
ISO Pascal 


1978-82 Ada (benannt 
nach der Gräfin Ada 
Lovelace) 

Eine enorm vielseitige 
Sprache, spezifiziert vom 


1980-82 ISO-PASCAL 

Die international standar- 
disierte Definition von 
PASCAL 


FORTRAN 


| COBOL | 
| 


Pascal 
fachheit leistungsstark und 


UCSD Pascal 


auf PASCAL umgestellt, entweder an den Uni- 
versitäten auf DEC oder VAX oder eventuell 
mit Hilfe eines Apple II mit einer Version des 
„p-systems", bekannt als Apple-PASCAL. 


Programmentwicklungen 


Mitglieder des ursprünglichen UCSD-Teams 
findet man heute beı der Arbeit an MODULA- 
2-Compilern oder anderen Systemen sowie 
beim Schreiben von AÄnwenderprogrammen 
für viele Software-Häuser. — Und alle arbeiten 
mit PASCAL oder einer leicht abgewandelten 
Version dieser Sprache. 

Ein beachtenswerter Punkt ıst, daß all dies 
ohne die finanzielle Unterstützung kommer- 
zieller Firmen geschah. PASCAL war alleın 
durch seine Vorzüge so erfolgreich, daß es 
keiner verkaufsfördernden Werbung von Soft- 
ware-Produzenten bedurfte. Unsere Serie über 
PASCAL konzentrert sıch auf die Standard- 
Fassung (ISO-PASCAL). Bei Themen wıe Gra- 
fik oder Routinen behandeln wir auch einige 
maschinenspezifische Besonderheiten, die 
einzeln erläutert werden. 


sprachen von 1954 bis 1982 


1958-60 ALGOL 60 (ALGO- 
nthmic Language) 

Eine allgemeine alget raj- 

sche Schreibweise für den 
Umgang mit Algorithnıen. 


| ALGOL 60 
Eine sehr dominante Spra- 
| che, obwohl sie nicht sehr 
verbreitet ist. 


Der „Stammbaum“ der höheren Programmier »- 


1963-68 ALGOL 68 

Eine umfangreiche und 
sehr leistungsstarke Ver- 
sion von ALGOL, mathe- 


ALGOL 68 


NE 


Modula-2 


1977-80 MODULA-2 
(Modular) 

Wirths neue modulare Sy- 
stem-Sprache, die sich un- 
ter den Programmierem 
immer größerer Beliebt- 
heit erfreut. 


amerikanischen Verteidi- 
Qungsministenum. 


matisch definiert von 
einem europäischen Ko- 
mitee von Computerwis- 
senschaftlem. 


=) 1%9 BCPL (Basic Combi- 


ned Programming Lan- 
guage) 

Eine sehr erfolgreiche 
Sprache, die die Struktur 
von ALGOL mit der Lei- 
stungsfähigkeit von 
Assembler kombiniert. 


1974-78 C 


Eine System-Sprache, ab- 


geleitet von BCPL, die 


zum Schreiben des UNIX- 


Betriebssystems verwen- 
det wurde. 


1981 Occam (benannt nach 
William of Occam) 

ı Eine „Miniatur"-Sprache 
für Spezialanwendungen. 
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Wort 
ur Wort 


Im zweiten Teil unserer 
PASCAL-Serie befassen wir uns 
mit grundlegenden Voraus- 
setzungen wie der Syntax und 
dem Vokabular. 


D: erste Problem beı der Verwendung 
eıner Compilersprache ıst der Umgang 
mıt dem mehrstufigen Arbeitsprozeß, selbst 
beı eınem kleınen Programm. Als erstes muß 
der Source-Code mit Hılfe eines Editors oder 
eınes Textverarbeitungsprogramms eıngege- 
ben werden. Dann, nachdem man den Source- 
Code auf Cassette oder Diskette gespeichert 
hat, muß der Compiler geladen und anschlıe- 
ßBend ınstruiert werden (oftmals ın Form eıner 
komplexen Befehlszeile), den Source-Code ın 
Maschınen-Code umzuwandeln bzw. zu com- 
piheren. Abschließend muß dann das „Ob- 
ject"-File einem Speicherbereich zugeordnet 
und mit den entsprechenden notwendigen 
„Run-Tıme-Library“-Routinen verbunden wer- 
den. In den meisten Fallen kann das Pro- 
gramm dann ohne weiteren Aufwand geladen 
und gestartet werden, doch sollte der Compiler 
eınen sogenannten „Pseudo-Code", auch ZwI- 
schencode genannt, verwenden, muß eın Run- 
Tıme-Interpreter benutzt werden, um das Pro- 
gramm auszuführen. 

Doch fast alle für Heımcomputer erhältlichen 
PASCAL-Versıonen vermeiden diese Probleme 
weitestgehend. Beı den besten Versionen ıst 
es sogar möglıch, während der Programment- 
wıcklung den Source-Code, den Compiler und 
das Object-Programm gleichzeitig ım Speicher 
zu haben. Die Effizienz und der gennge Platz- 
bedarf von PASCAL machen dıes möglıch. Le- 
dıglıch beim Schreiben von Programmen muß 
man sıch mit einem etwas komplizierteren Är- 
beitsablauf abfınden. 

Jedes System verfügt über eınen ındıvıduel- 
len Satz an Befehlen zur Kontrolle des Editors 
und des Compilers. Oftmals ıst nur ein eınfa- 
ches E für Editieren, eın C für Compilleren und 
ein R für RUN (Programmstart) alles, was Sıe 
wıssen müssen. Zunächst befassen wır uns mit 
der korrekten Syntax, die für Jedes Programm, 
egal wıe einfach oder komplex es sein mag, 
eingegeben werden muß. Glücklicherweise ıst 
PASCAL so gut standardısıert, daß es kaum 
Unterschiede zwischen den eınzelnen Dıalek- 
ten gibt (im Gegensatz zu den verschiedenen 
BASIC-Versionen). Lediglich gegen Ende des 
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Compiler 
Eine komplette professionelle PASCAL-Ausrüstung 
kann oft mehr kosten als ein Heimcomputer. Doch 


gibt es inzwischen viele Compiler, die zu einem ver- 
nünftigen Preis erhältlich sind. Wir zeigen Ihnen hier 


eine Auswahl der zur Zeit erhältlichen Programm- 
pakete. 


Kurses werden wır uns mit einigen wenigen 
Ausnahmen befassen. Lassen Sie uns nun un- 
ser erstes vollständiges PASCAL-Programm 
betrachten: 

Program Fırst (output); 

Const 

Message="Pascal-Programmierung': 

Begın 

write (Message) 

End 
Geben Sıe zunächst dıe Zeilen eın. Änschlıe- 
ßend compıilieren und starten Sıe es. Sollten 
Sıe irgendwelche Beanstandungen vom Com- 
piler erhalten, lesen Sıe dıe Fehlermeldung 
sorgsam durch, und versuchen Sıe, den Fehler 
zu erkennen. Jedes Zeichen muß exakt einge- 
geben werden. Beachten Sıe besonders das 
Semikolon am Ende der ersten und dritten 
Zeile sowie den Punkt am Ende des Pro- 
gramms. Wenn Sıe das Programm korrekt eın- 
gegeben haben, werden Sıe die folgende Mel- 
dung auf dem Bildschirm sehen: 

Pascal-Programmierung 
Das Programm mag etwas trıvıal erscheinen, 
doch es demonstriert dıe allgemeine Form, dıe 
Jedem PASCAL-Modul (bzw. Programm, Unter- 
routine oder Funktion) zu eigen ıst. Es gıbt Je- 
weıls dreı separate Teile: 

l. Die Kopfzeile, ın dıesem Fall dıe Programm- 
Überschrift. 

2. Deklarationen und Definitionen, ın diesem 
Fall eine eınzıge konstante Definition. 

3. Der „Körper“, der alle ausführbaren Anweı- 
sungen enthalt. 

Dıe erforderliche Syntax von PASCAL, zu- 
mindest für dıe grundlegenden Funktionen 
der Sprache, kann am besten durch soge- 
nannte „Syntax-Diagramme" definiert werden. 
sie sind vergleichbar mit der Straßenkarte 


Paket: Hisoft PASCAL fü: 
Spectrum, Schneider und MSX 
Computer ® Fr 5 

ro . 
Beschreibung: in Da ) 
Eine vom Standard unbedeu- 
tend abweichende Version 
aber trotzdem ein guter Kauf 


Das Paket wird mit einem eig 
nen Editor und einer „Turtle 
Graphics Library" (Bibliothek) 
geliefert. ’ 


Paket: Acorn Iso PASCAL fü : 
Acom B, Electron eg in 


Beschreibung: 
Sehr hochwertig. Es gibt zwei _ 
Compiler: einer im ROM mit 
einem semi-intelligenten Edit 
und Compilierung im Speicher, 
der andere als diskettenonien- 
tiertes System für Besitzer 
eines Rechners mit 6502-CPU. 


Paket: Oxford PASCAL für: 
Commodore 64 


Beschreibung: 
Ein ebenfalls quier Kauf, pro- 
duziert von Limbic Systems. 


eines Eınbahnstraßen-Systems. Eın legaler 
Weg durch das Diagramm führt von Iınks oben 
nach rechts unten. Jeder Kasten, durch den wır 
auf diesem Weg kommen, ıst entweder eine 
„syntaktische Einheit" (das bedeutet, sıe re- 
präsentiert sıch selbst), dargestellt durch eıne 
runde Box, oder eın anderes Objekt, das an 
einer anderen Stelle durch eın separates Syn- 
tax-Diagramm definiert wırd. Diese werden ın 
einem rechteckigen Kasten dargestellt. 


Syntax-Diagramm 


Beı der Betrachtung des Gesamtdiagramms 
eines Programms kann man sehen, daß dıe 
Worte „Begin“ und „End" als Teile des PAS- 
CAL-Vokabulars definiert sınd und somit keine 
weiteren Diagramme zu Erklärung ıhrer Be- 
deutung benötigen. In der Tat haben beı PAS- 
CAL nur 35 Wörter eıne festgelegte Bedeu- 
tung. Der Vollständigkeit halber haben wır sıe 
alle am Ende dieses Kursteils aufgelistet. Un- 
ser erstes Programm verwendet nur vier dieser 
Worter: Program, Const (dıe Abkürzung für 
constant = konstant), Begin und End. Das auf 
„Program“ folgende Wort ıst ein sogenannter 
„Identifikator", der den Programm-Namen an- 
gıbt. Es kann aber auch eın anderes „legales“ 
Wort verwendet werden. 

Wenn man mit einem Buchstaben begınnt, 
und nur Buchstaben oder Zahlen verwendet, 
gıbt es eine unbestimmbar große Anzahl von 
Wortern, dıe Sıe benutzen können. Trotzdem 
ıst es nıcht möglıch, eın reserviertes Wort zu 
verwenden. Die folgenden Wörter sınd beı- 
spielsweise alle erlaubt: 

Name 

PASCAL 

ProgramEıns 

N 

X 12108 

Adresse12 

KnutRaber 

Einsehrlangerldentifikator 
Die Jetzt folgenden Worter sınd nıcht legal: 

Prog-1 

ZEHN" 

Feuerzeug.Ofen 

and 

Zeit$Ecke 

Wiegeht's 

1001Dalmatıner 

ES regnet 
Diese Worter sınd nıcht erlaubt, da sıe Zeichen 
enthalten, dıe nıcht alphanumerisch sınd, mit 
einer Zahl beginnen oder (ım Fall and) eınes 
der von PASCAL resemwierten Worter darstel- 


len. Das letzte Beispiel ıst ıllegal, da eine Leer- 
stelle zum Trennen der Wörter verwendet 
wurde, wobeı dıe Wörter an sıch („Es" und 
„Iegnet‘) separat legal waren. Beı PASCAL be- 
steht ım allgemeinen, ähnlıch wıe in der englıi- 
schen Sprache, keın Unterschied zwischen 
Klein- und Großbuchstaben, obwohl es einıge 
Versionen gıbt, beı denen reservierte Wörter 
ın Großbuchstaben einzugeben sınd. 

Neben Leerstellen und dem Ende eıner 
Zeile gıbt es ın der PASCAL-Syntax eine weı- 
tere Möglıchkeit, dıe als Trennung verwendet 
werden kann — eıne Anmerkung. Sıe kann an 
einer beliebigen Stelle erscheinen, ausgenom- 
men mitten ın einem Wort. Anmerkungen wer- 
den durch geschwungene Klammern abge- 
grenzt. 

Lassen Sıe uns eın etwas komplexeres PAS- 
CAL-Programm betrachten: 

Program ProgramZweiı (Input, Output); 

[Quadrat einer Zahl) 

Const 

Prompt = 'Gıb Zahl eın:'; 
Var 
zahl : ınteger; 
Begın 
Writeln; 
Writeln; 
write (Prompt): 
read (zahl); 
WriteLn (zahl, "Quadrat ıst‘, zahl*zahl) 

End. 

Beachten Sıe, daß wır den Identifikator „ınput“ 
ın dıe Kopfzeile ıntegriert haben. „Input“ und 
„output“ werden von PASCAL benotigt. Sıe 
ıdentifizieren die externen Dateıen, mit denen 
das Programm kommuniziert. Beı eınem Heım- 
computer sınd das normalerweise dıe Tastatur 
und der Bıldschırm. 

Der Speicher zum Ablegen dıeser Parame- 
ter wırd durch dıe Var-Deklaratıon reserviert, 
wobei dies ın unserem Beispiel eıne eınzıge 
ganze Zahl ıst. Im Gegensatz zu BASIC, das 
normalerweise nur zwischen Zahlen und 
Strings unterscheiden kann (durch Anhängen 
eines Dollar-Zeichens an den Identifikator), 
verfügt PASCAL über eınen nahezu unbe- 
schränkten Bereich an verfugbaren Datenty- 
pen. Daher ıst es wıchtig, dem Compiler mitzu- 
teilen, wieviel Speicherplatz er zum Speichern 
der jeweiligen Datensätze reservieren muß. 

Der Cursor bleibt dırekt an der Posıtion nach 
Darstellung der Meldung stehen, so, als hätten 
wır eine BASIC-PRINT-Anweisung mit einem 
semikolon verwendet. Dies ıst keın Fehler, 
sondern eın Merkmal der wrnite-Funktion. 
Wann ımmer man eine neue Zeile benötigt, 
muß man dıe alternative Anweisung WnteLn 
verwenden. Ln steht für Line (Zeile). Es ıst 
recht sınnvoll, wenn man eın großes W und L 
verwendet, um den Anfang der zusammenge- 
setzten Worter besser zu kennzeichnen. Eine 
einfache WnteLn-Anweisung ohne weitere Pa- 
rameter erzeugt eine neue Zeile. 
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Symbole 


Die folgenden drei 
Symbole werden all- 
gemein in PASCAL- 
Syntax-Diagrammen 
verwendet. 


® Das ovale Symbol 
repräsentiert reser- 
vierte PAÄSCAL-Worte 
oder Zeichen, die kei- 
ner weiteren Erklärung 
bedürfen (wie "Buch- 
stabe" oder "Ziffer"). 


©) 


® Ein Kreis repräsen- 
tiert einen Pascal-Ope- 
rator (+, -, *,.. usw.). 


rechteckige 
Symbol steht für ein 
Wort oder einen Äb- 
schnitt, der sein eige- 
nes separates Syntax- 
Diagramm hat. 


® Das 
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Datentypen 


PASCAL verwendet vier einfache Datentypen innerhalb der Variablen- 


Deklarationen: Integer-, Real-, Zeichen- und Boolesche Variablen. 


ASCAL bietet vıer vordefinierte Daten- 

typen, die als Integer, Real, Char und Boo- 
lean bezeichnet werden. Zahlen werden als 
reale Zahlen bezeichnet, wenn sıe einen ab- 
trennbaren Teıl haben (,„Real"). Naturliche 
ganze Zahlen sınd „Integer“. Der tatsächlıch 
verfügbare Bereich von Zahlen ıst davon ab- 
hängıg, wieviele Bytes zum Speichern des Je- 
weıligen Datentyps verwendet werden. 


EZ 


Identifikator 


Buchstabe 


—)- 


Der Bereich der Integer-Zahlen wırd beı Ihrem 
Compiler entweder von -32 768 bıs 32 767 oder 
von -2.147.483.648 bıs 2.147.483.647 reichen. 
Dıes hängt davon ab, ob zum Speichern zweı 
oder vier Bytes verwendet werden. PASCAL 
bezeichnet den vorgegebenen Wert der höch- 
sten Integer-Zahl als MaxlInt. Somit läßt sıch 
dıeser Wert mıt der folgenden Anweisung her- 
ausfinden: 


WriteLn ('Maxlnt ıst: '‚MaxlInt) 


Reale Zahlen können ebenfalls nur ın eınem 
bestimmten Bereich und mit einer bestimmten 
Genauigkeit gespeichert werden. Er reicht ım 
allgemeinen von minus bis plus 1,7E38 mit 
einer Genauigkeit von mindestens sechs bıs 
sieben Stellen nach dem Komma. 

Beachten Sıe, daß eıne reale Zahl (für den 
Rechner) ımmer einen Dezimalpunkt haben 
muß (ın normaler Schreibweise eın Deziımal- 
komma), der dıe ganze Zahl von den Dezimal- 
stellen trennt. Beides muß eingegeben wer- 
den. Somit sınd O.l und l.OE-] möglıch, doch .1 
oder IE-] sınd ıllegal. 

„Char“ ıst die Abkürzung für Character. Eın 
Wert dieses Datentyps ıst eın Zeichen aus dem 
ASCII-Satz des Computers. PASCAL gewähr- 
leistet seine eigene Anpassungsfähigkeit, ın- 
dem es folgende Punkte festlegt: 

— Die Zeichen A bıs Z werden alphabetisch 
geordnet. Das bedeutet, daß A eınen kleineren 
Wert hat als B, B einen kleineren Wert als C 
und so weiter. 

— Die Zahlen-Zeichen 0 bıs 9 werden der be- 


kannten Reıhenfolge nach geordnet. 

Jedes ASCII-Zeichen erhält eınen numer- 
schen Code, der eın Wert des untergeordne- 
ten Bereiches der Integer-Datentypen ıst. Die 
ASCII-Codes sınd ın eınem Bereich von O bıs 
127 definiert. Bei vielen Computern geht der 
Bereich sogar bıs 225, wobeı die zusätzlichen 
Codes spezielle Grafikzeichen repräsentieren. 
Man kann Jeden gewünschten Zeichensatz 
problemlos auf der Skala der Ordnungszahlen 
darstellen, dıe vom Computer ıntern verwendet 
werden. PASCAL verfügt über dıe vordefinierte 
Funktion Ord: Sıe gıbt als Ergebnis den Inte- 
ger-Wert des angegebenen Argumentes aus. 
Somit ıst Ord(A) das Äquivalent des Wertes 65 
ım ASCII-Zeichensatz. Eine andere Funktion, 
chr, kehrt dıesen Vorgang um — chr (65) ergibt 
das Zeichen A. 

Der Bereich der „Zeichen"-(Char) und der 
Integer-Werte ıst für Jede PASCAL-Versıon fest 
definiert, das heißt, er basıert auf einer geord- 
neten Skala bekannter Konstanten. Äus diıe- 
sem Grund werden sıe als „Ordnungs"- bzw. 
„SKalar"-Datentypen bezeichnet. Ganz gleıch. 
welcher Wert vorlıegt, man kennt ımmer den 
vorangegangenen und folgenden Wert. Diese 
angrenzenden Werte können durch dıe beiden 
folgenden Skalar-Funktionen ganz eınfach er- 
mittelt werden. 


pred(item) (vorangegangener Wert) 
succ(item) (nachfolgender Wert) 


Somit ergıbt succ(3) als Ergebnis ımmer den 
Zeichenwert 4, wogegen pred(Z) nur beı be- 
stimmten Zeichensätzen (zum Beispiel ASCII) 
Y als Ergebnis ausgıbt. Pred(Maxlnt) ergibt 
entweder den Wert 32 766 oder 2.147.483.646. 
Die chr-Funktion kann nur mit einem Ärgument 
verwendet werden, das eın Zeichen-Code ıst. 
Alle anderen Skalar-Funktionen können dage- 
gen mit beliebigen Skalar-Datentypen verwen- 
det werden. 


Boolesche Variablen 


„Boolesche Varlablen" sınd die einfachsten al- 
ler Skalar-Datentypen, da nur zweı Werte mög- 
lıch sind — falsch und wahr (ın dieser Reıhen- 
folge). Die Skalar-Funktionen können daher 
auf jeden dieser Werte angewendet werden — 
der Ordnungs-Wert von falsch ıst O0, und 
ord(wahr) ergibt |. 

Der folgende Programmteil zeiat alle einfa- 


chen Ordınal-Datentypen, dıe ın einem PAS- 
CAL-Programmtext auftreten können. 


CONST 
VAT =0.15; 
spalten =40; 
leerstellen ="; 


fehlersuche =falsch; 


Mit dem Gleichheits-Zeichen werden die Iden- 
tıfikatoren bestimmten Werten zugeordnet. Der 
Doppelpunkt(:) trennt im VAR-Abschnitt neu 
deklarıerte Vanablen-Identifikatoren vom je- 
weıilıgen Datentyp. Betrachten Sıe das fol- 
gende Beispiel: 


VAR 
verhaeltnis :real; 
zahl ınteger; 
symbol :char; 
fertig :boolean; 


Der Zuordnungs-Operator 


Wenn wır diesen Varablen Werte zuordnen 
wollen, wırd der sogenannte zusammenge- 
setze „Zuordnungs-Öperator" (:=) verwendet. 
Dies ıst für die eindeutige Unterscheidung zwı- 
schen den dreı Arten von Operationen sehr 
hilfreich. 

CONST-Definittionen ordnen permanente 
Werte zu. VAR-Deklarationen reservieren le- 
dıglıch Speicherplatz. Durch Zuordnung erhält 
der Identifikator einen Wert. 

Wenn zweı oder mehrere Änweiısungen als 
Teıl eines Arbeitsvorganges ausgeführt wer- 
den müssen, kann man sıe als „zusammenge- 
setzte Anweisung" (durch eın Semikolon ge- 
trennt) zwischen dıe Worte BEGIN und END 
schreiben. Sıe haben sıcherlich bereits zusam- 
mengesetzte Anweisungen gesehen, denn 
diese Form kommt ın Jedem umfangreicheren 
Programm vor. Im folgenden sehen Sie eın 
PASCAL-Programm, das vıele der bereits be- 
sprochenen Details beinhaltet. Übrigens wer- 
den ab dieser Folge die reservierten Wörter in 
Großbuchstaben geschrieben, damit Sie sie 
besser von den Identifikatoren unterscheiden 
können. 


PROGRAM Kreis (input, output); 
CONST 
pi —23.1415926556; 
meldung ='Gib Radıus eın:'; 


VAR 
radıus, 
umfang ‚real; 


BEGIN 
Writeln; 
wrıte(meldung); 
read (radıus); 
umfang := pı*radıus*radius; 


Writeln; 

WriteLn (Der Umfang eınes Kreises’, 
"mit dem Radius’, radıus:8:3); 
WriteLn (betraegt:', umfang:10:3) 

END 


In diesem Beispiel gıbt es zweı Aspekte, dıe 
beachtet werden sollten. Der erste ıst, daß ım 
VAR-Abschnitt zwei Identifikatoren desselben 
Datentypes deklariert werden — beide real. 
Wie Sıe sehen, sınd zweı separate Deklaratıo- 
nen nıcht notwendig, da eıne größere Anzahl 
von Namen ın PASCAL eınfach durch Kommata 
getrennt werden kann. Der zweite Aspekt ıst 
die Art der Bildschirmausgabe. Sıe wird ver- 
wendet, um die vorgegebene wissenschaft- 
lıche Schreibweise von realen Zahlen zu um- 
gehen. Wıe Sıe sehen, kann man ganz nach 
Wunsch zweı Integer-Zahlen, getrennt durch 
Doppelpunkte, spezifizieren. Damit wırd eine 
bestimmte Feldbreite zur Darstellung der ge- 
samten Zahl und ıhres abtrennbaren Teiles 
festgelegt. 

In unserem Kreis-Programm sınd sowohl für 
den Radıus als auch für den Umfang drei Dezi- 
malstellen vorgesehen. Da der Umfang eıne 
größere Zahl sein wird, sind ınsgesamt zehn 
Zeichenpositionen vorgesehen, zweı mehr als 
für den Radıus. Diese Integer-Werte müssen 
ein eventuelles Vorzeichen sowie die Darstel- 
lung des Dezimalpunktes vor dem abtrennba- 
ren Teil zulassen. 


Zuordnungs-Änweisung 


Variablen- ) 
Identifikator = 


Funktions- 
Identifikator 


PASCAL rundet automatısch die letzte Stelle, 
um dıe maximale Genauigkeit ın einem be- 
stimmten numerischen Bereich anzugeben. 
Außerdem kann Jede Varlable oder Jeder Aus- 
druck verwendet werden, — nıcht nur Konstan- 
ten. Bei allen anderen Datentypen wırd nur ein 
Integer-Wert zur Bestimmung der Darstel- 
lungsform benötigt. Wenn man eıne Feldbreite 
von eins festlegt, werden Integer-Werte ohne 
Leerstellen ausgegeben. Soll die Bıldschırm- 
ausgabe tabellarısch gegliedert sein, müssen 
Sıe daran denken, zusätzliche Leerstellen eın- 
zusetzen. Betrachten Sıe das folgende Beı- 
spiel: 


WriteLn ("Total:’ :20,gewicht:1,' Kgq.‘) 


Achten Sıe darauf, zum Trennen der einzelnen 
Ausgaben Leerstellen einzufügen. Wenn Sıe 
beispielsweise dıe Zahlen 12 und 34 ın dieser 
Form ausgeben lassen, so erhalten Sıe auf 
dem Bildschirm 1234. 


am 
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IF-Anweisung 


Option 


und Auswahl 


In diesem PASCAL-Kurs werden die Strukturen der Vergleiche erklärt. 
Dabei behandeln wir die IF-Anweisung und die CASE-Anweisung, 
eine Struktur, die Mehrfach-Auswahlen ermöglicht. 


je IF-Anweısung ıst bei PASCAL ähnlıch zu 

handhaben wıe beı den meisten anderen 
Programmiersprachen. Durch Einrücken unter- 
geordneter Begriffe wırd die logısche Struktur 
einer solchen IF-Anweısung erkennbar wer- 
den. Im folgenden sehen Sıe zweı IF-Anweı- 
sungen: 


IF zahl=grenze 
THEN 
WriteLn ('Keın Platz‘) 
ELSE 
write ('Naechste Eingabe?'): 
IF nummer > maxımum THEN 
mMaxımum : = nummer 


Im zweiten Beispiel bedeutet das Fehlen von 
einer ELSE-Bedingung: 


ELSE 
[mache nichts) 


Das Schreiben der reservierten Wörter THEN 
und ELSE mit derselben Einrückung hilft Ihnen 
beım Nachvollziehen der Programmstruktur. 


en — 
Bi ı 


*Kondition = Boolescher Vergleich 
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PASCAL war die erste Programmıersprache, 
dıe dıe Verwendung vorbestimmter Skalen 
einführte. Diese Methode ıst sehr hilfreich, da 
sie einen umfassenden Überblick über die 
verschiedenen Daten-Typen ın eınem Pro- 
gramm ermöglicht, ohne daß man ständıg Da- 
ten ın numerische Codes umwandeln muß. Wır 
haben bereits gesehen, wıe eıne einfache 
Konstanten-Definition uns dabeı helfen kann: 
CONST 
breite —=80; 


Der Konstanten-Identifikator „breite" kann 
dann ım gesamten Programm als Referenz ın 
bezug auf dıe Anzahl der Spalten des Bild- 


schirms oder des Druckers verwendet werden. 
Um das Programm für einen Drucker umzu- 
schreiben, der nur eine Spaltenbreite von 40 
hat, braucht man nur eıne Zeile ın den Defini- 
tionen am Anfang des Programms zu ändern. 
Mit dieser Änderung werden automatisch alle 
Berechnungen der Datenausgabe entspre- 
chend angepaßt. 

Wenn man Farbgrafiken verwendet, könnten 
dıe verfügbaren Farben durch eine entspre- 
chende Skala von Zahlen dargestellt werden 
(beispielsweise rot = |, gruen = 2). Doch dann 
besteht dıe Gefahr, daß man dıe Wurzel aus 
gruen ziehen oder blau mit gelb multiplizieren 
müßte! Dies ıst nıcht nur unlogisch, sondern 
auch eıne potentielle Fehlerquelle. Der TYPE- 
Definitionsabschnitt eines PASCAL-Pro- 
gramms kann Jedoch dazu verwendet werden, 
einen völlig neuen Skalar-Typ zu definieren. 
Hierzu braucht nur eıne Liste von Identifikato- 
ren, dıe alle konstanten Werte der Skala reprä- 
sentieren, bestimmt zu werden. Zum Beispiel: 

TYPE 

farbe=(rot,gruen,gelb,blau,magenta,cyan); 


Da es eine Definition und keıne Deklaration ıst, 
wırd das Oleichheitszeichen zur Zuordnung 
der ın Klammern befindlichen geordneten 
Werte zum Identifikator (farbe) verwendet. Die 
Identifikatoren werden ıntern durch Integer- 
Werte (mit der normalen Zählweıse beginnend 
beı Null) repräsentiert. Diese numerische Re- 
präsentation wırd automatisch durch den Com- 
piler organısıert und entspricht ın etwa den 
Codes der Computer-Zeichensätze. Jeder 
Farbwert hat eine Ordnungs-Zahl, dıe man mit 
der Skalar-Funktion "ord" bestimmen kann. Im 
hıer gezeigten Beispiel würde ord(rot) den 
Wert O und ord(cyan) den Wert 5 als Ergebnis 
ausgeben. Wır können nun eıne Vanable ın 
der bereits bekannten Weise deklaneren: 
VAR 
farbwert : farbe; 


Hiermit wird eın Identifikator (farbwert) als Da- 
tenbestandteil des Datentyps "farbe" dekla- 
riert. Ähnlich verhält es sich mit der folgenden 
Deklaration: 
VAR 
buchstabe : zeichen; 


Diese Deklaration gıbt dıe Zeichenart eines 
Datenobjektes mıt dem Namen "buchstabe” 
an. Die einzigen Operationen, die für selbstbe- 
stimmte Datentypen definiert sınd, sınd Ver- 
gleiche und die Skalar-Funktionen. So könnte 
man beispielsweise schreiben: 
IF farbwert < cyan THEN 
farbwert := succ(farbwert) 


Zeichen und Zahlen können als Parameter ın 
"write-" und "WriteLn”-Anweisungen verwen- 
det werden, doch 

WriteLn (farbwert) 


ware ıllegal. Wenn man dıe Namen ausdruk- 
ken will, muß man dıe Farbwerte ın Form von 
Zeichen-Strings darstellen. Dies ıst eine Ideale 
Anwendung für dıe andere bereits erwähnte 
PASCAL-Struktur, die CASE-Anweiısung. 

Bis Jetzt haben Sıe gesehen, daß dıe Hand- 
habung der IF-Anweısung ın PASCAL der an- 
derer Programmiersprachen emtspricht. Durch 
dıe freie Programmtexteingabe von PASCAL 
wırd sie sogar noch einfacher nachvollziehbar. 
Trotzdem kann es vorkommen, daß man meh- 
rere Entscheidungen auf einmal treffen muß. 
Betrachten Sıe das folgende Beispiel: 

IFN=1 

THEN 
wrıte ('st.‘) 
ELSE 
FN=2 
THEN 
write ('nd.‘) 
ELSE 
IFN=3 
THEN 
wrıte ('rd.‘) 
EIöSE 
wrıte ('th.') 


Wann ımmer die auszuführende Anweisung 
vom Wert einer einfachen Skala ın einem be- 
grenzten Bereich abhängt, kann man die 
CASE-Anweısung verwenden. Für das hıer ge- 
zeigte Beispiel sıeht das dann so aus: 

CASE N OF 


1 write ('St.'‘); 

2 write ('nd.'); 

2 write ('rd.'); 

4:5.6,7,8:9 write ('th.‘) 
END [CASE] 


Beachten Sıe, daß nur die Werte von N Gültig- 
keit haben, die auch innerhalb der CASE-An- 
weısung spezifiziert wurden — ın dıesem Beı- 
spiel die Werte 1 bıs 9. Alle Werte, dıe N wäh- 
rend der Programmausführung eventuell beın- 
halten kann, müssen angegeben werden. Für 
das hier gezeigte Beispiel wäre somit die Eın- 
gabe O0 für N nıcht möglıch. 

Viele PASCAL-Compiler berücksichtigen 
auch dıe zusätzlichen reservierten Worte 
OTHERWISE oder OTHERS, dıe zur Aktivie- 


Kopfzeile 


Deklarationen ” 


Arbeits-Teil 


CASE-Anweisung 


Ausdruck 


„7 a u Da Du 5, 


rung eines alternativen Pruytallimitels velwel- 
det werden können. Ausführliche Informatıo- 
nen über dıese Wörter entnehmen Sıe bitte 
dem Handbuch Ihrer PASCAL-Versiıon. 

CASE ıst dıe einzige Anweisung ın PASCAL, 
die das Wort END zur Begrenzung eıner Struk- 
tur verwendet, dıe nıcht mit BEGIN gestartet 
wurde. Es ıst daher allgemein üblich, das Ende 
jeder CASE-Anweiısung In der hier gezeigten 
Form zu kennzeichnen. 

Die Struktur arbeitet ın der Form, daß sıe 
den Skalar-Ausdruck zwischen den reservier- 
ten Wörtern CASE und OF berechnet. (Eın eın- 
facher Varıablenname ıst eın Ausdruck, der 
keine Berechnungen erfordert.) Der ermittelte 
Wert wırd mit den folgenden Konstanten ver- 
glichen. Trifft ein Vergleich zu, wırd dıe dem 
Doppelpunkt folgende Anweisung ausgeführt. 
Die Programmkontrolle überspringt dabeı keı- 
nen Teil. Dadurch bleibt der Zusammenhang 
der Konstruktion gewahrt. Wenn mehrere Ope- 
ratıonen ausgeführt werden müssen, kann 
selbstverständlich auch noch eıne zusammen- 
gesetzte Änweisung zwischen den Worten BE- 
GIN und END verwendet werden. 

Unter gewissen Umständen kann es vorkom- 
men, daß einige Werte keinerlei Aktıvität er- 
fordern. In solchen Fällen kann dıe eınfachste 
aller PASCAL-Anweisungen verwendet wer- 


Dies ist das verein- 
fachte Flußdiagramm 
eines PASCAL-Pro- 
gramms, in dem alle 
wesentlichen Elemente 
enhalten sind. Beachten 
Sie, daß die reservier- 
ten Wörter von PAS- 
CAL in Großbuch- 
staben geschrieben 
sind. Diese Form der 
Darstellung soll dabei 
helfen, sie von den 
nicht reservierten Wör- 
tern zu unterscheiden. 
Die meisten PASCAL- 
Versionen akzeptieren 
jedoch auch reservierte 
Wörter in Kleinbuch- 
staben. 


963 


den. Diese Anweisung Ist dıe sogenannte 
"Null"-Anweisung, die soviel bedeutet wie 
"mache nichts". Dazu eın Beispiel: 
CASE N MOD 4 OF 
0: {mache nichts); 
1,3 : begin 
write (N MOD 4: 1, viertel‘); 
fENMOD4> 1then 


Wieviele Tage bis Ultimo? 


Das folgende Programm berechnet ledig- 
lıch dıe Anzahl der Tage zwischen einem 
vom Anwender eingegebenen Datum und 
dem Ende eınes Monats. Trotzdem können 
sie hier einige Grundsätze der PASCAL- 
Programmierung erkennen. 


write ('S‘) Die CASE-Anweisung wird zur Umset- 

end; zung der eingegebenen numerischen Da- 

2 : write (1/2') ten ın das Interne Datenformat verwendet. 
END [CASE] Anschließend werden die Daten wieder 


Beachten Sıe, daß nach wıe vor eın Semikolon 
benötigt wird, um auch diese nicht existie- 
rende Anweisung von folgenden Programmtei- 
len zu trennen. Bei der Anweisung der letzten 
Zuordnung muß keın Semikolon gesetzt wer- 
den, da eın reservlertes Wort folgt (END) und 
keine weitere Zuordnung oder Anweisung. Die 
Verwendung des MOD-Operators gewährlei- 
stet, daß der Wert ım Bereich von O bis 3 liegt. 
MOD gibt den Rest eıner Integer-Division aus, 
ähnlich wie beı einigen BASIC-Versionen. 0 7 SERRERR 

Im nächsten Teil dieses PASCAL-Kurses a 
werden wır uns mit diesen und allen anderen jahr. 
Operatoren sowie mit eingebauten Funktionen symba 
befassen. Zum Abschluß zeigen wir Ihnen | „an an 
noch die Lösung des Problems, wıe man diıe Writeln ("Geben Sie das Datum wie folgt ein: '); 
Zeichen-Strings für jeden Wert unseres selbst- 
definierten Datentypes ausdruckt: 

CASE farbwert OF 


umgesetzt, damit sie als String auf dem 
Bildschirm ausgegeben werden können. 
Beachten Sıe dıe Zeichen-Variable (sym- 
bol), dıe nur dazu dient, die beliebigen 
Zeichen zu lesen, die zur Trennung der 
Eingabe verwendet werden. 


PROGRAM 
CONST 
Punkt—'.' 
TYPE 
Kalender—(Jan. Feb, Mrz, Apr, Mai, 
Jun, Jul, Aug, Sep. Okt, Nov. Dez); 


Datum (input,output); 


‘Kalender, 


‚Integer; 
:zeichen; 
:boolean; 


Wiriteln (TT/MM/JJ':40); 

Writeln; 

write ('Datum?'); 

read (tag. symbol. monat, symbol, jahr); 

Schaltjahr:=jahr MOD 4 — OÖ; 
[Jahrhunderte werden nicht beachtet] 


Vergleichs- 
Konstruktionen 


IF...THEN führt den Pro- 
grammteil „Berechnung“ 
dann aus, wenn der Ver- 
gleich wahr ist. Ist der 
Vergleich falsch, so wird 
die Programmausführung 
einfach mit der nächsten 
Anweisung fortgesetzt. 
Im Gegensatz zur 
IF... THEN-Konstruktion, 
die eine „Option“ anbie- 
tet, stellt 
IF... THEN...ELSE eine 
„Auswahl“ zur Verfü- 
gung. Abhängig vom Er- 
gebnis des Vergleichs 
wird eine von zwei Be- 
rechnungen ausgeführt. 


Auswahl 

IF Kondition 
THEN Berechnung A 
ELSE Berechnung B 
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rot : write (‘Rot'); IF Ion > 0) AND (monat < — 12) 

gruen : write ("Gruen‘); CASE monat OF 

gelb write ('Gelb’); :MonatName:=Jan; :MonatName: =Jul: 

blau ' write ('Blau‘) Van a en 

magenta : wrıte ('Magenta‘); N a 

cyan : write (‘Cyan’); 'MonatName: Jun: MonatName :—Dez 
END [CASE} ICASEI 


Option 
IF Kondition 
THEN Berechnung 


falsch 


Berechnung B |; 


Berechnung A X 


Wiiteln (‘Aeh?'), 


Writeln (* — das Programm kann nıcht', ‘weiter ausgefuehrt 


werden!‘) 
END. [MonatName ist nicht initalisiert) 


CASE MonatName OF 
Jan,Mar, 
Maı,Jul 
Apr,Jun 
Sep,Nov ;Rest:=30— tag; 
Feb :!F Schaltjahr 
FHEN 
Rest:=29-—tag 
ELSE 
Rest:=28-—tag 


Rest:=31—tag. 


END: (CASE) 


Wiriteln: 
write(’Es sind noch', Rest: 1, 
"Tage ım Monat‘): 


CASE Monat Name OF 
Jan : write (‘Januar‘); 
Feb : write ('Februar‘); 
Mr  wrıite (Maerz); 
Apr : write (April‘); 
Maı : write ('Mai'); 
Jun write ("Juni‘); 
Jul : write ('Juli‘); 
Aug : write ("August'): 
Sep . write ("September‘) 
Okt : write (Oktober‘):; 
Nov : write ('November'):; 
Dez : write ("Dezember‘):; 


END: (CASE) 
Writeln (Punkt) 


END 
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Eins plus zwei 
gleich siebzig? 


Mit seinen strukturierten Datenklassen und vielen Datentypen eignet 
sich PASCAL ideal zur Arbeit mit der Logik komplizierter 


mathematischer Abläufe. 


ieviel ıst eins plus zwei? Ohne zusätz- 
liche Information wird die Äntwort auto- 
matisch „drei“ lauten. Wir setzen dabei voraus, 
daß wir es mit natürlichen Zahlen zu tun haben. 
Wenn wir jedoch eın Fünfzigpfennigstück und 
zwei Zehnpfennigstücke ın einen Automaten 
einwerfen, kann das Ergebnis durchaus sıeb- 
zig Pfennig sein — oder, wenn man es anders 
betrachtet, eine Tasse Kaffee. Die genaue Än- 
gabe der Datenklasse hat folglich große Be- 
deutung. 

In PASCAL können Sie nun eine ganze 
Reihe von Datentypen selbst definieren und 
haben damit dıe Möglichkeit, Ihre Programm- 
algorithmen exakt auf dıe eingesetzte Daten- 
struktur zuzuschneiden. Der PASCAL-Compiler 
meldet dabeı sofort einen Fehler, wenn beı- 
spielsweise einer Booleschen Varnablen über 
die Tastatur ein Wert zugeordnet werden soll. 
Diese Hilfe kann Stunden frustnierender Feh- 
lersuche ersparen, da der Compiler kein Quel- 
lenprogramm ausführt, das noch Äblauffehler 
enthält. Einer der Vorteile von PASCAL ıst, daß 
es zahlreiche unterschiedliche Datentypen 
verarbeitet und man diese auf verschiedene 
Arten beschreiben kann. 

Die einfachen Varlablentypen (die nur einen 
einzigen Wert enthalten können) arbeiten 
nach folgenden Regeln: Unterschiedliche 
Skalartypen sınd untereinander nıcht kompati- 
bel. Es gibt jedoch zwei numerische Vanablen, 
die viele gemeinsame Eigenschaften besitzen. 
So können sich reale Zahlen (Real) Ganzzah- 
len (Integer) annähern und Ganzzahlen ın 
reale Zahlen umgewandelt werden. Reale Zah- 
len können jedoch nie völlıg zu Ganzzahlen 
werden. Hier einige Beispiele: 

Program Compatıbıility (input, output); 

VAR 

ıntA, 

ıntB :ınteger; 

Xreal, 

Yreal :real; 

BEGIN 

read (intA,Xreal); (*erst Integer, dann einen 
Real eingeben*) 

Yreal := intA; (*real := ıst möglich*) 

intB := Xreal; (*FEHLER : Umwandlung 
nicht möglıch*) 

(*etc. 


Arıthmetische Vorgänge sınd logischerweise 
nur für numerische Variablen definiert. Die fol- 
genden mathematischen Zeichen können mit 
numerischen Varaablen vom Typ Integer und 
Real eingesetzt werden: 


+ Addıtion 

— Subtraktion 

* Multiplikation 

/ Divison (Fließkommaformat) 


Diese Zeichen werden „dyadısche" (zum Zweı- 
ersystem gehörende) Operatoren genannt, da 
sıe zweı Operanden (Real oder Integer) benö- 
tıgen. Ist einer der Operanden eın Real, ergibt 
sıch eın Real: 2 + 2.0 ıst 4.0 (nıcht 4). Das Er- 
gebnis einer Division ıst ın Jedem Fall ein Real, 
selbst wenn beide Operatoren Integer sınd: 
3/4 ıst 0.6 und 8/4 ıst 2.0. 

Beı einer Division zweier Integers läßt sich 
mit einem Real als Ergebnis oft nıchts anfan- 
gen. Verteilt man beispielsweise zwölf Stücke 
Schokolade an zehn Personen, so erhält Jeder 
ein Stück, während zwei Stücke übrig bleıben. 
Mit den zwei Operatoren DIV und MOD (beı- 
des Schlüsselwörter ın PASCAL) ıst die Ganz- 
zahlenteilung Jedoch möglıch. Das Ergebnis 
und der Rest werden dabeı ım Integerformat 
angezeigt: 15 DIV 5=3 und 15 MOD 5=0; 31 DIV 
1=4 und 3l MOD 7=3. Dabeı dürfen keıne ne- 
gativen Werte eingesetzt werden, da die Inte- 
gerdivision für negative Nenner nicht definiert 
ıst. Bei beiden Divisionsarten — Real und Inte- 
ger — ıst die Teilung durch Null eın Fehler, da 
noch nıemand herausgefunden hat, wie die 
Unendlichkeit bewertet werden kann. 

Multiplikation und Division werden vor Addi- 
tion und Subtraktion ausgeführt. Mıt Klammern 
laßt sich diese Rangfolge jedoch ändern. (8+4) 
DIV 2-6 aber 8+4 DIV 2=10. 

Obwohl Reals nıcht unmittelbar ın Integers 
umgewandelt werden können, führen „Trunc" 
und „Round“ dıese Funktion indirekt aus. 
Trunc schneidet beı einem Real alle Stellen 
hinter dem Komma ab: trunc (3.999) = 3 und 
trunc (—123,456) = —123. Die Funktion round 
rundet eine Zahl gegen Null ab, wenn die 
Nachkommastellen kleiner sınd als 0.5. Liegen 
sie darüber, wırd ın die andere Rıchtung ge- 
rundet: round (1234.5) = 1235 und round 


(—0.49237) = 0. Ein Fehler tritt auf, wenn das 
Ergebnis der beiden Funktionen außerhalb 
des für den Typ Integer verfügbaren Zahlen- 
bereiches liegt (-Maxlnt bis MaxlInt). Fangen 
Sie diese Möglichkeit sıcherheitshalber vorher 
mit einer IF-ÄAbfrage ab. Die ın Klammern ste- 
hende Zahl muß eın Real sein, da Integers 
keine Nachkommastellen besitzen und eıne 
Rundung nıcht möglıch ıst. 

Die Funktion odd bietet ın PASCAL eine weı- 
tere Möglichkeit, Zahlenwerte zu überprüfen. 
Damit läßt sıch feststellen, ob eın Integer ge- 
rade oder ungerade ıst. Odd erzeugt ein Er- 
gebnis vom Typ der Booleschen Variablen: Ist 
dıe ın Klammern stehende Zahl gerade, ergibt 
odd den Wert False; bei ungerade den Wert 
True. 


IF odd(N) 
THEN 
WriteLn (“ungerade”) 
ELISE 
WriteLn ("gerade") 
oder: 
IF odd(N) THEN 


IFN MOD 2=0 THEN 
WriteLn ("Der Compiler spınnt!”) 


In der kleinen Tabelle auf der nächsten Seite 
sınd alle arıthmetischen Funktionen von PAS- 
CAL aufgeführt. Die Jeweils ın Klammern ste- 
hende Variable kann Jeden Wert vom Typ Real 
und Integer annehmen, wobei sıch das Ergeb- 
nisformat von abs und sqr dem Klammerwert 
anpaßt: abs(— 19.372) ıst 19.372 und abs( 255) Ist 
255. Alle anderen Funktionen erzeugen Reals: 
sqrt(16) ıst 4.0, nicht 4. Der Grund dafür sınd 
dıe Berechnungsalgorithmen. Sıe bauen auf 
der Summierung von Reıhen auf und arbeiten 
mit Kommazahlen. 

Sie werden bemerkt haben, daß wir beı Er- 
gebnissen vom Typ Real das Wort „ıst" verwen- 
den und nicht das Gleichheitszeichen; „ıst" be- 
deutet hier „ist dasselbe wıe" statt „ıst gleich". 
Reals sollten nie auf exakte Gleichheit hın 
überprüft werden, da schon der kleınste Be- 
rechnungsfehler bewirken kann, daß zwei for- 
mal „gleiche" Reals sich um 1.0E-27 unter- 
scheiden. Für uns ıst dieser Unterschied zwar 
sehr kleın, für den Computer Jedoch nicht. Statt 
IF X = YTHEN ... können Sıe die abs-Funk- 
tion folgendermaßen verwenden: 

IF abs(X—Y) < Kleinste Differenz 

THEN (* etc.*) 

Hierbei wird getestet, ob die Differenz zwi- 
schen X und Y unter einem bestimmten Miıni- 
malwert liegt, der am Anfang des Programms 
über CONST definiert ıst. Logarıthmen werden 
zur Basıs (e) angegeben, nıcht zur Basıs 10, 
während exp den Wert e (2,71828...)um die ın 
Klammem stehende Zahl potenziert. Wirth ent- 
schied sich ganz bewußt dafür, ın PASCAL 
keine Potenzfunktion aufzunehmen. In BASIC- 
Programmen findet man oft Zeilen wıe 
500LETD=B 2+44*A*’C 


Der goldene Schnitt 


Eine Gerade läßt sich nur an einem einzigen 
Punkt derart teilen, daß das Verhältnis der kür- 
zeren Strecke zur längeren Strecke dem Verhält- 
nis der längeren Strecke zur ganzen Linie 
gleicht. Dieses Verhältnis wird „sectio aurea“ 
oder „goldener Schnitt“ genannt und ist — wie 
Pi — eine irrationale Zahl mit unendlich vielen 
Nachkommastellen. 


Der goldene Schnitt wurde besonders von gne- 
chischen Künstlern und Architekten eingesetzt. 
Einige der interessantesten Beispiele finden 
sich jedoch in der Natur. So baut die „Seespi- 
rale“ ihre Schale nach dem goldenen Schnitt. 
Die Radiusvektoren — nach jeweils W) Grad auf- 
gezeichnet — teilen einander in diesem Verhältnis. 


B A 


Die Seiten des Rechtecks ABCD werden nach 
dem goldenen Schnitt geteilt. Ein Quadrat ABEF 
kann darin derart untergebracht werden, daß 
sich ein Rechteck (EFDC) mit dem gleichen 
Seitenverhältnis wie ABCD bildet. Dieser Vor- 
gang läßt sich bis ins Unendliche fortsetzen. 


1001 


1002 


dıe das Quadrat einer Zahl nach der langsam- 
sten und ungenauesten Methode bilden. B * B 
eignet sıch dafür weitaus besser. In PASCAL 
ergibt sqr(N) das Quadrat von N ım Integerfor- 
mat (vorausgesetzt, N ıst ein Integer); sqr(X/ 3) 
erzeugt ein Real. Und noch eine BASIC-Ge- 
wohnheit muß aufgegeben werden: sqrt(x) 
und nicht sqr(x) ergibt dıe Quadratwurzel 
einer Zahl. 


Alle Skalartypen haben einen festen und 
geordneten Wertebereich. Von ıhnen können 
Untertypen abgeleitet werden, die einen Teil- 
bereich des ursprünglichen Skalartyps umfas- 
sen. Bei der Definition dieser Untertypen wer- 
den die Unter- und Obergrenzen ın Klammern 
angegeben: 


IYPE byte = 0..255; (*Unterbereich von 
Integer”) 
alpha = 'A’..'Z'; (*Unterbereich von char”) 
farbe = (kreuz, pık, herz, karo); (*eın 
neuer Typ”) 
hauptfarbe =(herz . . karo);(*Unterbereich 
von farbe*) 


Außer den erwähnten Vorteilen kann eın guter 


PASCAL-Compiler Varlablen vom Typ byte beı-‘ 


spielsweise ın acht Bytes (bei „gepackter" 
Darstellung) statt ın 32 Bytes unterbringen. 
Eine Matrıx dieser Art belegt nur 25 Prozent 
der Speicherkapazität, die normale Integerele- 
mente einnehmen würden. Beachten Sıe, daß 
der Typ hauptfarbe zweı mögliche Werte ent- 
hält, die nıcht vom Booleschen Typ sınd, wıe: 


FIFE 
boolean = (false, true); 


Alle Untertypen übernehmen Datenstruktur 
und Äbläufe des Haupttyps. 

Die Definition von alpha kann außer dem Al- 
phabet natürlich auch andere Zeichen umfas- 
sen. So enthält der ASCII-Zeichensatz zwi- 
schen „Z" und „a" sechs weitere Symbole, dar- 
unter die eckigen Klammern (,„[" und „]"), die 
zu den 23 Schlüsselwörtern von PASCAL gehö- 
ren. Sie dienen — wie ın vielen anderen Spra- 
chen — als Grenzmarkierung für die Kompo- 
nenten mehrerer strukturierter Datentypen. 
Auch BASIC hatte diese Symbole ursprünglich 
für Matrixindizes eingesetzt. Da Jedoch einige 
ältere Computer nur über den „halben“ ASCII- 
Zeichensatz ohne Kleinbuchstaben, eckige 
und geschweifte Klammern und einige andere 
Symbole verfügten, wurde die Syntax auf 
runde Klammern umgestellt. Der ursprüng- 
lıche Apple II war auch an diese Grenzen ge- 
bunden. PASCAL bietet folgende Alternativen: 
(. und .) lassen sich für [ und ] einsetzen und 
(* und *) statt [ und }. Diese alternative Kenn- 
zeichnung von Kommentaren wird oft ver- 
wandt, wobeı nur bestimmte Compiler dıe ek- 
kıgen Klammern verarbeiten können. Die Be- 
grenzungen lassen sıch auch mischen: (* Dies 
ist ein korrekter Kommentar |. 


| Funktion | Ergebniswert 


abs(K) Absolutwert von K 

sqr(K) Quadrat von K 

sqrt(K) Quadratwurzel aus K 

sin(Ä) Sinus von A (A im Bogenmaß) 

cos(A) Cosinus von A (A im Bogenmaß) 

arctan(T) Arcus Tangens von T (Ergebnis 
im Bogenmaß) 

In(K) Logarithmus von K zur Basis e 

exp(L) Wert von ehoch L 


Das goldene Band 


Das hier aufgeführte Programm erzeugt Fibo- 
nacci-Einheiten und zeigt sie mit den ent- 
sprechenden Verhältniszahlen an. Interessan- 
terweise nähert sich dabei das Verhältnis je- 
des aufeinanderfolgenden Einheitenpaars 
mehr und mehr den Werten des goldenen 
Schnittes. 

Das Programm enthält aber auch einige 
Grundlagen, die wir in früheren Folgen die- 
ser Serie untersucht hatten, darunter weitere 
Beispiele für die REPEAT-Struktur von PAS- 
CAL. Versuchen Sie einmal, die Endbedin- 
gung der Schleife so zu verändern, daß das 
Programm endet, wenn die nächste zu be- 
rechnende Fibonacci-Einheit größer als 
Maxlnt ist. 


PROGRAM Golc 


CONST Epsilon 
TYPE Fıbonaccı 1... Maxlnt:; 


VAR 


first, 

second, 

next Fıbonaccı: 
ratıo, 

Gold real; 
count nteger; 


BEGIN 
Writeln (’Der goldene Schn 
Writeln 
WriteLn ("Fibonaccı Serie: 
first:— 1; (* per Definition*) 
second 
ratio: st/seconi!; 
countwO; 


REPEAT 
IF count MOD 100 THEN 

BEGIN (*alle 10 Zeilen Druck der Ueberschrift') 
Writeln 
Writeln ('First': 10, 

Second’ : 10, 'Ratıo‘ : 14) 

Writeln 

END; 


Writeln (first : 10, second : 10, 
ratıo . 16: B); 
count count 1; 


Gold satıo alter GS°) 
next first second; 
first second; (* nachstes Element (der 
second next; (*Serie aulfrulen*) 
ratıo first/second 
UNTIL abs (ratıo Gold) - Epsilon; 
Writel h 


Writeln (‘die goldene Mitte ıst 
100m ratıo® 10 5 


END 


Antworten zu den 
Übungen 

In der vorigen Folge 
stellten wir die Aufgabe, 
bei der Generierung der 
Fibonacci-Einheiten und 
der Verhältniszahlen der 
aufeinanderfolgenden 
Paare die Schleife so zu 
verändern, daß die End- 
bedingung eintntt, wenn 
die nächste Fibonacci- 
Einheit, die berechnet 
werden soll, MaxInt 
überschreitet. 

Eine Ganzzahl, die bei 
der Darstellung im Zwei- 
erkomplement MaxlInt 
überschreitet, zerstört 
das eigene Vorzeichen- 
bit. Da die Zahl dann ne- 
gativ erscheint, würde 
das Programm „abstür- 
zen“. Es kann keine ne- 
gativen Werte verarbei- 
ten und würde selbst mit 
ganzzahligen Werten die 
Schleife niemals been- 
den können: 


UNTIL first+second > 
MaxlInt 


kann nie eintreten, da es 
für den Computer keine 
Zahl gibt, die größer als 
Maxlnt ist. Mit einem 
kleinen Trick läßt sich 
das Problem jedoch 
lösen: 


UNTIL second > 
Max-lnt-first 


Jetzt werden natürlich 
auch die Real-Ärithmetik 
und die Konstante Epsi- 
lon nicht mehr benötigt. 
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Mach’'s noch 
einmal, RAM 


In unserer Einführung in PASCAL wurden bisher die strukturierten 
Anweisungen gezeigt, mit denen sich Programme exakt auf einzelne 
Probleme zuschneiden lassen. Heute ‘untersuchen wir drei 
verschiedene Strukturen für die Steuerung von Programmschleifen. 


weı der drei Möglıchkeiten zur Strukturle- 
rung von PASCAL-Anweısungen haben wır 
bereits dargestellt. Sequentielle Strukturen 
sınd ın dıe Wörter BEGIN und END eınge- 
schlossen, während bedingte Anweisungen 
mit IF und CASE aufgebaut werden. Fur den 
Arıtten Strukturtyp — dıe Wiederholung - stellt 
PASCAL dreı Konstruktionsmöglichkeiten zur 
Verfügung. Dıe FOR-Anweiısung kann eıne fe- 
ste Anzahl von Schleifendurchgängen aufru- 
fen, während WHILE und REPEAT durch Be- 
dıngungen gesteuert werden. 

In der WHILE-Schleife wırd zunachst der 
Boolesche Ausdruck zwischen den beıden re- 
servierten Wörtern WHILE und DO bewertet. 


Die WHILE-Anweisung: 


0 Br’ Emmen 


a or, u 
Tan Dee rer 


Anweisung 


DW ie DR Tr er) 


DIE ni ne 


Ist das Ergebnis wahr („true"), dann wırd dıe 
folgende Anweisung (dıe Jede nur möglıche 
PASCAL-Anweısung mit beliebig gestaffelter 
Tıefe seın kann) so lange wiederholt, wıe dıe 
Bedingung zutrifft. Nach Jeder Ausführung der 
Anweisung wırd dıe Boolesche Bedingung des 
WHILE-Befehls neu bewertet. Das bedeutet 
aber auch, daß mindestens eıner der ın der 
Anweısung enthaltenen Werte durch dıe Ab- 
laufe ınnerhalb der Schleife verändert werden 
muß. Hıer eın Beispiel: 
WHILE MaxInt > 1 DO 
WrieLn ("Schleife wird ausgefuehrt‘) 


Da dıese Schleife sıch nur schwer beenden 
laßt, hier eın realıstischeres Beispiel: 
read ( Abhebung ); 
WHILE Abhebung > KontoGuthaben DO 
BEGIN 
WriteLn (‘Nicht genug Geld vorhanden — 
Neuer Versuch: '); 
write (Abhebung DM ?'), 
read ( Abhebung ) 
END 


Dieser Programmteıl verdeutlicht das wıchtig- 
ste Merkmal der WHILE-Struktur: Wenn dıe 
Abhebung kleıner ıst als das augenblickliche 
Kontoguthaben, wırd dıe WHILE-Schleife nıcht 
ausgeführt. Die Ausführung der Schleife wırd 
beendet, wenn dıe Bedingung unwahr („false“) 
ıst. Die Steuerung wırd dann wıeder von dem 
sequentiellen Ablauf übernommen, und dıe er- 
ste Anweisung wırd nach der WHILE-Struktur 
ausgeführt. 

Beachten Sıe, daß ım Gegensatz zu WHILE 
die Endbedingung für REPEAT..UNTIL am 
Ende der Struktur lıegt. Die REPEAT-Schleife 
wırd beendet, wenn der Boolesche Ausdruck 
„true“ ıst, während dıe WHILE-Bedingung nur 
dann aufhört, wenn dıe Bedingung „false ıst. 
Sınd ınnerhalb der REPEAT-Struktur mehrere 
Anweisungen enthalten, können sıe ın BE- 
GIN ..END eingeschlossen werden. Dies ıst Je- 
doch nıcht nötıg, da dıe reservierten 


Die REPEAT-Anweisung: 


eo. anna 


Wörter REPEAT und UNTIL als Begrenzung 
ausreichen. BEGIN und END haben dıe gleı- 
che Funktion wıe eın zusätzliches Semikolon 
vor einem reservierten Wort, wobeı jedoch 
keine leere Anweisung entsteht. 

Der folgende Programmteil zahlt, wıe oft der 
Buchstabe e ın eınem per Tastatur eingegebe- 
nen Text vorkommt. Die Eingabe muß mit 
eınem Punkt abgeschlossen werden, damit dıe 
REPEAT-Schleife beendet und das Ergebnis 
dargestellt werden kann. 

Zahl:= 0; 

REPEAT 

read (Zeıchen) ; 
IF Zeichen = 'e’ THEN 
Zahl :=Zahl + 1 
UNTIL Zeichen = /,; 
Writeln (‘In dem Satz sınd ', Zahl : 1, 


sıı _ 00 


| 


Für diesen Ablauf lassen sıch beıde Strukturen 
einsetzen. Die WHILE-Versıon sıeht folgender- 
maßen aus: 
Zahl:= 0; 
read (Zeichen) ; 
WHILE Zeichen <> '. DO 
BEGIN 
IF Zeichen = 'e’ THEN 
Zahl := succ (Zahl); 
read (Zeichen) ; 
END; 
write ('In dem Satz sınd ', Zahl : 1, ); 


[a 


Writeln (’'’e’s enthalten. ') 


WHILE-Befehlseingabe 


Der Unterschied zwischen beıden Strukturen 
ıst leicht zu erkennen. In der WHILE-Struktur 
muß eın Befehl unter Umständen zweımal eın- 
gegeben werden (dıe read-Änweisung), wenn 
dıe Endbedingung eıntreten soll, — eınmal un- 
mittelbar vor der WHILE-Struktur und eınmal ın 
der letzten Anweısunn der Schleife. 

Obwohl dıe WHILE-Struktur sehr viele An- 
forderungen erfüllt, ıst es manchmal notwen- 
dıg, daß eın Ablauf nach eıner festen Anzahl 
von Wıederholungen — beispielsweise nach 
Durchlauf eıner begrenzten Werteskala — 
beendet werden kann. PASCAL bietet dafür 
dıe FOR-Struktur, dıe Jedem BASIC-Program- 
mierer vertraut Ist. Zwischen den FOR-Schleı- 
fen beider Sprachen bestehen Jedoch wesent- 
lıche Unterschiede. Zunächst kann Jeder Ska- 
lar dıe Steuerung der Schleife übernehmen, 
nıcht nur eine Ganzzahl. Wichtiger ıst Jedoch 
dıe Prazısıion der Änweısung. Wıe dıe WHILE- 
Schleife kann auch FOR. .DO nıcht ausgeführt 
werden, wenn beispielsweise der Änfangswert 
großer ıst als der Endwert. Außerdem sınd dıe 
steuervanablen ın PASCAL sehr starken Eın- 
schränkungen unterworfen. Insbesondere laßt 
sıch ıhr Wert nıcht ınnerhalb der Schleife ver- 
andern — schon der Versuch wırd von PASCAL 
als Fehler gemeldet. Der Vorteil dıeser Sıcher- 
heitsmaßnahmen wırd noch deutlich werden. 
Zunachst Jedoch eın ıllegales Beispiel: 

FOR N := 1 TO 10 DO 

IFN = 10 THEN 
N:=1 
Diese Struktur ıst fehlerhaft, da dıe IF-Anweı- 
sung nach zehnfacher Ausführung der Schleife 
dıe Vanıable N wıeder auf | setzt und so eıne 
unendliche Schleife erzeugt. 

Die Syntax der FOR. .DO-Anweiısung ver- 
langt zwischen den beiden Begrenzungen 
(FOR und TO) dıe Zuweisung des Anfangswer- 
tes der Steuervanablen. Der Endwert wırd von 
den reservierten Wörtern TO und DO eınge- 
schlossen. Hıer eınıge Beispiele: 

FOR Zeichen := 'A' TO 'Z' DO (* etc. *) 

FOR Monat := 'Jan’ TO 'Dez' DO (* etc. *) 

FORN := N TO succ(MaxlInt DIV 1000) DO 

(* etc. *) 
Das letzte Beispiel setzt voraus, daß N zuvor 


Die FOR-Struktur: 


aan | 


Variablenname |” 


: (Do) £ 
DE 2 ie 


 — 
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schon ein geeigneter Wert zugeordnet wurde. 
Wenn dieser Wert den höchstmöglichen 

Wert überschreitet, wırd :«: fe über- 
haupt nıcht ausgeführt. Fur eine absteigende 
Wertskala wırd anstelle von TO das reservierte 
Wort DOWNTO verwandt. So konnte der Start 
einer Rakete folgendermaßen programmiert 


werden: 
FOR CountDown := 10 DOWNTO 0 DO 
Writeln (Countdown : 32 — 3 * 
CountDown); 
WritelLn (‘Wir haben LIFT OFF !) 


Die Ausführung der FOR-Schleife wırd von 
PASCAL sehr streng gehandhabt. Es gıbt keine 
Entsprechung für den BASIC-Befehl STEP, der 
dıe Inkrementierung und Dekrementierung 


modifizieren kann. 


Bierpreise 


PROGRAM 
Type 
Bier = ( Hell, Dunkel, Bock, Alt ); 
VAR 
Preis, 
Halbe : real ; 
Typ :Bier; 
BEGIN 
WriteLn ( 'Halbe’ :7, 
"Hell’ :8, ‘Dunkel’ :9 
iBock# 7, All®7 ); 
WriteLln; 
Halbe :=0.5 ; (* Anfang bei einem Viertel *) 
REPEAT 
IF Halbe — trunc ( Halbe ) > 0.4 
THEN (* als ##.# ausgeben *) 
write (Halbe :6:1,°') 
ELSE (* als Ganzzahl ausgeben *) 
write ( round ( Halbe ) :4,'':3); 
FOR Bier := Hell TO Alt DO 
BEGIN 
CASE Bier OF 
Hell : Preis :— 1.55; 
Dunkel : Preis :—= 1.65; 
Bock : Preis :— 1.75; 
Alt : Preis := 1.85 
END; (* CASE *) 
(* runden und in Mark umwandeln *) 
write ( round ( Preis * Halbe ) 
/100:8:2) 
END; 
(* neue Zeile anfangen *) 
Writeln; 
Halbe := Halbe + 0.5 
UNTIL Halbe > 10 
END. 


BierPreise (output); 


Das Programm Bier- 
preise druckt in Vier- 
tellitersprüngen eine 
Preisliste für vier ver- 
schiedene Biersorten. 
Jede Biersorte ist in der 
Typendeklaration TYPE 
als Typenname aufge- 
führt. Die Auswahl der 
entsprechenden Preise 
geschieht mit der 
CASE-Anweisung. 
„Ganzzahlige“ Halbe 
werden als Integer an- 
gezeigt und mit zwei 
Leerzeichen versehen. 
Durch die Formatierung 
der realen Zahlen 
(reals) verschwinden 
unerwünschte Dezimal- 
stellen. 
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Sets und Mengen 


In PASCAL gibt es außer den Datenstrukturen Array und File noch 
Sets und Records. In dieser Folge untersuchen wir, wie Sets 
funktionieren, und geben einen Überblick, welche der 
PASCAL-Operatoren Vorrang vor anderen haben. 


W: haben uns zwar oft mıt dem Zeıchen- 
satz eines Computers beschäftigt, aber 
nıe genau definiert, was der Unterschied zwı- 
schen einem Satz (Set) und einem Array ıst. 
Eın Set (oder auch Menge) ıst eine Ansamm- 
lung von Objekten, dıe als Eınheit angespro- 
chen wırd und nıcht über dıe eınzelnen Ele- 
mente. Da Sets keine strukturierte Ordnung 
haben müssen, ist oft nur dıe Frage wichtig: Ist 
eın bestimmtes Objekt Element des Sets oder 
nıcht? 

Aus Gründen der Eınsatzfähıigkeit sınd Sets 
ın PASCAL bestimmten Beschränkungen un- 
terworfen. So können Sets nur einfache Ska- 
lare als Elemente haben und keıne Arrays 
oder andere Datenstrukturen. Außerdem wird 
dem „Basıstyp“ eines Sets beim Eınsatz ın 
einem Programm eine Obergrenze gesetzt. 
Die Definition eınes Sets ıst einfach und dırekt: 

TYBE 

zanlen SET OFO.127: 

Alphabet = SET OF 'A'.Z; 

Farben = SET OF (Rot, Gruen, Blau), 
Der Wertebereich, der für den ordınalen Basıs- 
typ eines Sets möglıch ıst, wird wie ein norma- 
ler Unterbereichstyp angegeben. 

Set-Varıablen werden wıe alle anderen Va- 
nablen mit VAR deklarıert. Ihre Elemente kön- 
nen — In eckıge Klammern eıngeschlossen — 
dırekt angegeben werden: 

VAR 

Codes : Zahlen; 

Palette : Farben; 


BEGIN 
Codes ‘= [10.2.4,8,16, 532,624]; 
Palette := [Rot..Blau]; (* etc. *) 


Dieser Programmteil ordnet dem Set „Codes“ 
dıe Zahlen O bıs einschließlich 2 und 4,8.16,32 
und 64 zu. Da dıeser Set keine bestimmte Ord- 
nung enthält, könnten wır ıhn auch als 
[64,32,16,8,4,0..2] schreiben. Die Angabe 2.0 
wäre als Definition eines Unterbereichstyps 
zwar ıllegal, würde ansonsten aber eıne Leer- 
menge bezeichnen. Es ıst auch möglich, Sets 
über die Anweısung JederSet :=[] mit der 
Leermenge dieses Typs zu ınitlalisıeren. Dies 
ıst ın PASCAL die eınzıge Ausnahme der Re- 
gel, daß sıch der Typ Jedes Elements per Test 
feststellen läßt. Ohne mindestens eın Set-Ele- 
ment kann der Compiler den Typ allerdıngs 
nıcht bestimmen. 

Eıner der praktischsten Operatoren für Set- 


Strukturen ıst das reservierte Wort „IN“. Mıt IN 
‚aßt sıch testen, ob eın Objekt (oder Objekte) 
Element eines Sets ıst. IN ıst ein Vergleichs- 
operator, der zweı Operanden benötigt. Dabeı 
muß auf der Iınken Seıte eın Ausdruck stehen, 
der zu den Set-Elementen gehört, und auf der 
rechten Seite eine Set-Vanable oder eınes 
oder mehrere Elemente des gleichen Set- 
Typs. Das Ergebnis ıst der Boolesche Wert 
„true“, wenn das Objekt eın Element der Ver- 
gleichsmenge ıst, und „false“, wenn dıes nıcht 
der Fall ıst. 

„N IN Codes" und „Gruen IN Palette" erge- 
ben daher legale Boolesche Werte. Eın Test, 
ob eın Zeichen eıne Zahl ıst, wie: 

IF (c>='0') AND (c< ='9) THEN... 
läßt sıch in PASCAL viel einfacher durchfuüh- 
ren. Es muß nur festgestellt werden, ob c Ele- 
ment eınes bestimmten Zeichensatzes ıst: 

Pe INYUV..9) THEN 
So könnte der Anfang eınes Kartenspielpro- 
gramms folgendermaßen aussehen: 

Tore 

Rang = ( Zwei, Drei, Vier, Fuenf, Sechs, 
Sıeben, Acht, Neun, Zehn, Bube, 
Dame, Koenig, As), 

Kartenspiel : SET OF Rang: 


VAR 
Karte : Rang, 
Bilder : Kartenspiel, 
BEGIN 


Bilder := (Bube. . As); 

IF Karte IN Bilder THEN (* etc. *) 
Vergleichen Sıe dıese Anordnung mit: 

IF (Karte = Bube) OR (Karte = Dame) OR 

(Karte = Koenig) OR... 
Ebenfalls definiert sınd Operationen mit voll- 
ständigen Sets: Vereinigungsmenge, Mengen- 
dıfferenz und Schnittmenge. Wenn B beiıspiels- 
weıse der Set aller BASIC-Programmıerer ıst 
und P der aller PASCAL-Programmiıerer, dann 
ıst die Schnittmenge beıder Sets der Set aller 
Programmierer, dıe sowohl BASIC als auch 
PASCAL beherrschen. Die Vereinigungs- 
menge von P und B ıst der Set aller Menschen, 
dıe entweder ın PASCAL oder ın BASIC pro- 
grammieren — also dıe Kombination beider 
Sets. 

Eıne Mengendifferenz ergibt sıch aus der 
Subtraktion aller Elemente eınes Sets von 
einem anderen. P-B stellt daher alle Personen 
dar dıe ın PASCAL programmieren aber nicht 


ın BASIC. Die Vereiniygungsmenye wird als 
P+B geschrieben und dıe Mengendifferenz 
als P*B. Die Symbole der Set-Operatoren glei- 
chen zwar den bekannten arıthmetischen Ope- 
ratoren, dıe unterschiedlichen Vorgange soll 
ten Jedoch nıcht durcheinandergebracht wer- 
den. Da dıese Symbole den Vorgang des Biıt- 
Testens darstellen. werden sıe auch für Sets 
eingesetzt. 

Stellen Sıe sıch eın Set mit acht Elementen 
vor. Dabeı wırd dıe Anwesenheit eınes Ele- 
mentes durch das Setzen eınes bestimmten 
Bıts (Eins) ın einem Byte angezeigt, seine Ab 
wesenheit dagegen durch Null. Mit eıner 
Maske (oder eınem Bit-Test) kann nun leıcht 
festgestellt werden, ob eın Byte Element des 
vets ıst. OR ergibt dıe Vereinıgungsmenge und 
AND dıe Durchschnittsmenge. Da diese Ab- 
laufe auf Maschınenebene vorhanden sınd. 
kann der PASCAL-Compiler Sets und ıhre 
Operationen dırekt ın den Maschınencode um- 
setzen. Dafür wırd nur wenig Speicher benö- 
tıgt. Daher gehoren Set-Operationen zu den 
effektivsten Ablaufen ın PASCAL 


Behandlung der Operator 


Die Pniontätsregeln der PASCAL-Operatoren 
lassen sıch auf vier Ebenen zusammenfassen, 
wobeı dıe Operatoren, auf dıe wır nıcht aus- 
fuhrlıch eingegangen sınd, dem in anderen 
Programmiersprachen ublıchen Gebrauch ent- 
sprechen. Die „monadischen" (oder eınwerti- 
gen) Vorzeichenoperatoren + und — und der 
Iogısche Operator NOT haben erste Prioritat 
Auf der zweiten Pnıontatsebene befinden sıch 
alle Multiplikationsoperatoren (darunter auch 
dıe Divisionssymbole). Die drıtte Ebene ent- 
halt Addition und Subtraktion. und auf der letz- 
ten Ebene werden alle Vergleichsoperationen 
— darunter auch IN — durchgeführt. 

Beachten Sıe, daß dıe beiden logıschen 
Operatoren AND und OR wie Multiplikations- 
bzw. Addıitionsoperatoren behandelt werden 
und damit dıe Boolesche Algebra korrekt um- 
setzen. Viele Vergleichstests müssen die Pno- 
rıtaten daher mit Klammern umgehen So er 
zeugtetwa IF N>OANDN< 1 l|OTHEN...eıne 
Fehlermeldung, da der Ausdruck 0 AND N 
zuerst bewertet wırd und als Versuch gılt, zweı 
ganzzahlıge Operanden mit einem logıschen 
Operator zu verknüpfen. 

Alle Operatoren der gleichen Priorität wer- 
den von Iınks nach rechts abgearbeiıtet. Das 
Zuordnungssymbol (:=) hat eine geringere 
Prıorıtat als dıe anderen Operatoren, da der 
Ausdruck auf der rechten Seite einer Zuwei- 
sung vor der Zuordnung erst vollständig be- 
wertet werden muß. Noch eın Wort der Vor- 
sıcht: Gehen Sıe nıemals davon aus, daß eın 
Ausdruck nıcht bewertet wırd. Fur den Fall 
N=0 laßt IF (N>O) AND K N<]19) THEN... 
das Programm absturzen, da eıne Teilung 
durch Null nıcht möglıch ıst 


Englisches Billard 


Englisches Billard wırd mit 15 roten Kugeln 
gespielt (die alle einen Punkt ergeben, wenn 
sıe „eingelocht" werden), einem weıßen 
Spielball und sechs farbıgen Kugeln, dıe fol- 
gende Punkte haben: 


Gelb 2 
Grün 8 
Braun 4 
Blau 5 
Rosa 6 
Schwarz 7 


Nach dem Eiınlochen eıner roten Kugel wırd 
jeweils eine farbige Kugel gespielt. Die eın- 
gelochten farbigen Kugeln werden danach 
wieder auf den Spieltisch gelegt. Nach der 
letzten Farbkombination müssen alle Kugeln 
in aufsteigender Reihenfolge ihrer Werte ein- 
gelocht werden. 

Ein Spielerwechsel findet statt, wenn ein 
| Spieler nach einer Folge von korrekten Stö- 


ßen entweder eine Kugel nicht einlocht, eine 
falsche Kugel trifft oder keine Kugeln mehr 


auf dem Spieltisch liegen. Schreiben Sie ein 
Programm, das berechnet, wie viele Spieler- 
wechsel möglich sind. In dem Programm 
darf jedoch als einzige Zahl nur die 15 
erscheinen. Die Auflösung drucken 
wir in der nächsten Folge. 


umgehen. 


Höchste 


Prioritätsregeln 


Die Tabelle zeigt die Prioritäten der PASCAL-Operatoren. 
In runde Klammem eingeschlossene Ausdrücke werden 
separat bewertet und können so die normalen Pnoritäten 


nl tpE 


AND * / DIV MOD Multiplikation 


a Naaciion 
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Bingo! 

Eine Bingokarte läßt sich leicht mit einem Set dar- 
stellen. Obwohl die Grundelemente (Ganzzahlen 
von Eins bis 90) eine Struktur haben, ist hier das 
einzig wichtige Kriterium, ob die Nummer auf der 
Karte enthalten ist oder nicht. In PASCAL hieße 
das: „Nummer IN Karte“ ist entweder „true“ oder 
„false“. 

Das folgende Programm simuliert ein Bingo- 
spiel. Es liest zuerst die Kartennummern über die 
Tastatur ein und testet dann bei Aufruf der einzel- 
nen Nummern, ob in diesen Nummern der Unterset 
Karte enthalten ist. Der Aufruf wird zur Leermenge, 
wenn sich jedes Element von Karte ebenfalls ım 
Set „Aufruf“ befindet. 


PROGRAM Bingo (input, output); 


CONST 


Spalten = 40; (* Monitoranzeige *) 


Haelfte = 25; (* Monitoranzeige *) 


TYPE 
Bingo = SET OF 1. . 90; 
VAR 
Zaehler :1.. 15; 
moeglich, 
Aufruf, 
leer, 
Karte : Bingo; 
Nummer : integer; 
Haus : boolean; 
BEGIN 
Leer := [ ]; 


moeglich := [1.. 90]; 

Writeln ( '*** BINGO ***' : Haelfte ); 

Writeln: 

Writeln ( ‘Geben Sie 15 Nummern der Karte ein,’ ); 
WriteLn ( Nach jeder Nummer bitte ein RETURN) :' ); 
Karte := Leer, 


FOR Zaehler := 1 TO 15 DO 
BEGIN 


Wenn zu einem Set ein Element hinzugefügt 
wird, das darin bereits enthalten ist, oder ein Ele- 
ment herausgenommen wird, das es darin nicht 
gibt, bleibt dieser Set unverändert. Beachten Sie, 
daß sich Elemente nicht direkt in einen Set einfü- 
gen lassen. Durch den Aufbau eines zusätzlichen 
Sets, der nur ein Element enthält, kann jedoch die 
Vereinigungsmenge dieser beiden Sets hergestellt 
werden. 

Das Programm nimmt doppelte Nummerneinga- 
ben an und erzeugt einen Äblauffehler, wenn Zah- 
len außerhalb von Eins bis 90 eingegeben werden. 
Fügen Sie als Übung Schleifen ein, die dies ver- 
hindern und die die Eingabe bereits aufgerufener 
Nummern ablehnen. 


write ( Zaehler : 10, ': ?'); 

ReadLn ( Nummer ); 

Karte := Karte + [Nummer] 
END; 


Writeln; 

WriteLn ( "AUGEN NACH UNTEN ! : Haelfte ); 
Writeln; 

Writeln ( "Jetzt die Nummern aufrufen : '); 
Aufruf := Leer; 


REPEAT 
write ( '? ’ : Haelfte ); 
ReadLn ( Nummer ); 
Aufruf := Aufruf + [Nummer] ; 
Haus := Karte — Aufruf = Leer 


UNTIL Haus; 


Writeln; 

Writeln ( "Glückwunsch !’ : Haelfte ); 
WriteLn ( ‘Ihre Nummern sind :'); 
Writeln; 


FOR Nummer := 1 TO 90 DO 
IF Nummer IN Karte THEN 
write ( Nummer : Spalten DIV 8) 


1074 


Der Record-Befehl 


In diesem Artikel gehen wir nochmals auf Sets ein und untersuchen 
dann den Datentyp „Record“. Mit Record lassen sich unterschiedlich 
strukturierte Daten bequem zusammenfassen. 


n der letzten Folge wurde gezeigt, wie sıch 

Programmabläufe durch den Eınsatz von Sets 
vereinfachen lassen. Element eınes Sets kann 
jeder echte Skalartyp (keın Real) sein. Außer 
dem Operator IN, der testet, ob ein Objekt Ele- 
ment eınes Sets Ist, werden für Sets dıe norma- 
len Operatoren eingesetzt. Zwar gıbt es keinen 
Mechanısmus, der ein bestimmtes Element 
aus einem Set herausnımmt, doch läßt sıch mit 
den Operatoren <= und >= feststellen, ob 
ein Set Teilmenge eines anderen Sets Ist, wäah- 
rend = und <> die Sets auf Mengengleich- 
heit testet. 

Für mathematische Anwendungen dürfen 
Mengen nicht nur unbegrenzte Objekte ent- 
halten, sondern können theoretisch als unend- 
lich definiert werden. (Das ıst der Vorteil, wenn 
Probleme nur auf dem Papier gelöst und nıcht 
in funktionierende und physısch begrenzte 
Hardware umgesetzt werden müssen.) In 
einem Computer sınd Sets daher ın Bezug auf 
Größe und Geltungsbereich Grenzen gesetzt. 
Typen wıe: 

RiesenSet = SET OF Ganzzahlen; 
sollten deshalb nicht definiert werden. Eın Set- 
Element an der Untergrenze eınes Sets muß 
immer einen Ordinalwert von Null oder dar- 
über haben, während die absolute Obergrenze 
je nach Computer zwischen 255 und 4098 lıegt. 
Beachten Sıe, daß dıe Leermenge (durch |] 
dargestellt) Element aller nur möglichen Sets 
ist, unabhängıg von deren Typ. Obwohl dies 
nicht der exakten Typendefinition von PASCAL 
zu entsprechen scheint, wird ın der Praxıs der 
Typ der Leermenge ımmer von den Typen der 
anderen Sets eines Ausdrucks bestimmt. 


Sets als Testabfragen 


Es ist nıcht möglich, Untersets ın Sets des gleı- 
chen Typs direkt einzuschließen. Außerdem 
sind die Operatoren < und > für Sets nıcht 
definiert. Der Grund dafür liegt ın der praktı- 
schen Anwendung — die meisten Einschrän- 
kungen von PASCAL ergeben Sınn, wenn sıe 
vom Standpunkt des praktischen Einsatzes 
oder der reinen Logik her betrachtet werden. 
Die Beantwortung der Frage, ob eın Set echte 
Teilmenge eines anderen Sets ıst, muß daher 
mit einem doppelten Test erfolgen: 
(A>=B)JAND(A<>B) 

Bei dem Test von „Haus" ım Bıngo-Programm 
der letzten Folge war dieser spezielle Test 
nicht nötig, da der Set der aufgerufenen Zah- 


len nur größer oder gleich dem Set der ın der 
Karte enthaltenen Nummern seın konnte, wo- 
bei der erste Fall weitaus wahrscheinlicher ist. 
Der folgende boolesche Ausdruck 

Haus := Aufruf >= Karte 

ergibt „true", wenn alle Elemente von „Karte“ ın 
dem Set „Aufruf“ enthalten sind. Durch diese 
Eigenschaften und Funktionen eignen sıch 
Sets ideal als Datenstrukturen für ındıvıduelle 
Problemlösungen. Eıns der praktischsten Eın- 
satzgebiete von Sets sınd Tests von Untersets 
des Typs „char“. Mıt dem folgenden Programm 
lassen sıch Spiele steuern: 


Nein := ['N','n’] ; 

Ja =]: 

REPEAT 
(* Spielablauf und Anzeige *) 
(* der Gewinnpunkte *) 


write ( "Noch eın Spiel ? '); 
ReadLn (Antwort), 


WHILE NOT ( Antwort IN Ja + Nein ) DO 
BEGIN 
WritelLn ( 'J(a) oder N(ein)' : Spalte ); 
write ( "Noch eın Spiel ? '); 
ReadLn ( Antwort ); 
End 


UNTIL Antwort IN Nein 
Wenn Sıe auf dıe Elemente eıner Datenstruktur 
einzeln zugreifen möchten, haben Sıe die 
Wahl zwischen Arrays, Fıles und Records. Be- 
sonders dıe Records lassen sich für praktische 
Anwendungen sehr gut einsetzen, da sie un- 
terschiedliche Datentypen speichern können. 
In kommerziellen Programmen gıbt es oft 
Datensätze, deren Felder Namen, Adressen, 
Telefonnummern, Rechnungsnummernn etc. 
enthalten. Die eingesetzte Datenstruktur muß 
sıch dabei als Einheit verarbeiten lassen, aber 
auch den Zugriff auf die einzelnen Felder er- 
lauben. In PASCAL konnen Informationen die- 
ser Art als Einheit zusammengefaßt und verar- 
beitet werden, wobei die eınzelnen Felder ın- 
dividuell abrufbar sınd und gemäß ıhrem Da- 
tentyp bearbeitet werden können. Gemischte 
Records lassen sıch leıcht anlegen: 
IPE 
Raum = RECORD 
Nummer : 1..999; 
Richtung : ( Nord, Ost, Sued, West ): 
Besetzt : boolean 
END; (* Raum *) 


VAR 
Buero : Raum; 
Ebenso wie CASE durch den Einsatz des re- 
servierten Wortes END eine Sonderstellung 
einnimmt, so ıst auch dıe Definition eines Re- 
cords ım Deklarationsteil dıe Ausnahme zu der 
Regel, daß BEGIN und END nur paarweıse eın- 
gesetzt werden dürfen. END sollte daher zur 
leichteren Identifizierung immer den Namen 
des Records als Kommentar enthalten. Jede 
Variable des Typs „Raum“ ıst nun aus drei ver- 
schiedenen Feldern zusammengesetzt. In dıe- 
sem Fall ıst jedes Feld eın anderer Skalartyp. 
Es könnte aber auch der gleiche Typ - einfach 
oder strukturiert — seın. Es gıbt keine Eın- 
schränkung, welche Typen ın einem Record 
untergebracht werden dürfen. Eın Feld kann 
daher durchaus eın Array von Files enthalten, 
ın denen Records untergebracht sind. Diese 
Records können wiederum aus Sets bestehen. 


Die WITH-Anweisung 


Zwischen den Ausdrücken RECORD und END 
gleicht dıe Syntax exakt der VAR-Deklaration. 
Dabeı werden jedoch Feldnamen deklarıert, 
dıe Teil der Datenstruktur sınd. Die Wörter 
„Nummer“, „Richtung“ und „besetzt" gibt es 
daher außerhalb des „Bereichs" des Record- 
Namens nıcht. Sıe sınd lokale Variablen und 
können daher ın weıteren Teilen des Pro- 
gramms ın anderen Zusammenhängen eınge- 
setzt werden. Es gıbt zweı Möglıchkeiten, auf 
dıe Felder zuzugreifen: mıt dem Punkt (.) und 
der Anweisung WITH. 

Zur Wahl eınes bestimmten Feldes wırd der 
Name des gesamten Records mit einem Punkt 
von dem Feldnamen getrennt. 

Buero. Nummer 
bezieht sıch nur auf die Ganzzahl des Feldes 
„Nummer“. Der Inhalt von Record kann folgen- 
dermaßen ınitıalisiert werden: 

read ( Buero.Nummer ); 

"Buero.Richtung := Ost; ' 

Buero.besetzt := Bewohner <> []' 
Beachten Sıe, daß ım letzten Beispiel dıe Leer- 
menge „Bewohner" eingesetzt wurde, deren 
Typ nıcht deklanert ıst. 

Wenn auf alle oder fast alle Felder eınes 
Records zugegriffen werden soll, kann eıne 
Zuweisung mit Punkten recht umständlich wer- 
den. Mıt WITH ıst dıes weıtaus einfacher. 
WITH bedeutet: „Ich möchte diesen Record 
bearbeiten und gebe daher nur die Feld- 
namen an". Der Aufbau der WITH-Anweisung 
entspricht dem der WHILE-Schleife. Die oben 
aufgeführte Initlalisierung eınes Records sıeht 
mit WITH weitaus klarer aus: 

WITH Buero DO 

BEGIN 

Nummer := 123; 

Richtung := Ost; 

Besetzt tue; 
END 


Im Inneren einer WITH-Anweısung (hıer von 
BEGIN bıs END) braucht dem Feldnamen kein 
Record-Name und Punkt voranzustehen. Auch 
wenn eıne andere Varlable des Programms 
ebenfalls den Namen „Nummer“ hat, entsteht 
kein Konflikt, da lokale Varıablen ımmer Vor- 
rang haben. Die Feldbezeichnung mit Punkt ıst 
nicht an dıese Grenzen gebunden: 


PASCAL-Operatoren 
für Sets 


Diese Liste enthält alle Set-Operationen, die in PAS- 
CAL möglich sind (mit ihren Venn-Diagrammen). 

1) Vereinigungsmenge (SI + S2): Die Vereinigungs- 
menge zweier Mengen enthält alle Elemente, die in 
Sl und in S2 enthalten sind. (Diagramm |) 

2) Mengendifferenz (Sl — S2): Die Mengendifferenz 
ist die Untermenge aller Elemente von SI, die nicht zu 
S2 gehören. (Diagramm 2) 

3) Durchschnittsmenge (S1 * S2): Die Durchschnitts- 
menge enthält alle Elemente, die in beiden Sets 
gleichzeitig vorkommen. (Diagramm 3) 

4) Mengengleicheit (Sl = S2): Mengengleichheit ent- 
steht, wenn die Menge S1 mit der Menge S2 identisch 
ist. (Diagramm 4) 

5) Mengenungleichheit (SI <> S2): Ergibt „true“, 
wenn nicht jedes Element von S] auch Element von 
S2 ist. (Diagramm 5) 

6) Teilmenge (S] <= S2): Ergibt „true“, wenn jedes 
Element von S] ebenfalls Element von S2 ist. 

7) Teilmenge (Sl >= S2): Ergibt „true“, wenn jedes 
Element von 52 ebenfalls Element von S] ist. 

8) Enthalten in (E IN S]): Ergibt „true“, wenn der Set 
mit einem Element ([E]) ein Unterset von Sl ist. 


A 
(| ) 
ML 


Buero.Nummer := nummer 
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ordnet beispielsweise dıe externe Varlable 
(Nummer) dem Feld (nummer) des Datensat- 
zes zu. Da PASCAL keıne Unterscheidung zwı- 
schen Groß- und Kleinschreibung vornimmt, 
muß sıch der nicht näher definierte Vanablen- 
name „nummer“ auf eine externe Vanable be- 
ziehen (sofern er nicht in eine WITH-Anweı- 
sung eingeschlossen ist). Eine Zuordnung ZWI- 
schen Variablen des gleichen Record-Typs 
muß jedoch mit der Punktschreibung erfolgen: 
Fassade.Richtung := Aussicht.Rıchtung 
Über WITH könnte hier nur das Feld eines 


Von Yards, Feet und Inches 


amm „Strecken“ verarbeitet zwei 
' te ‚ die per Tastatur in Yards, 
eingegeben werden. Über die 
ord-Typs wird jedem Wert 


der drei un en Maßeinheiten ein 
eigene En t. Das Programm ad- 

diert dann nr ecken, wobei mit DIV 

und MOD fes 2. wird, ob ein Übertrag 


„Feet“ und von 

Die Ergebnisse 
esamt“ zugeordnet. 
:ords kann direkt 
eh muß Be 


vom Feld ‚Inches 


ausgeführt werden, die 
doch für Kr Feld ei 


byte =0.. MaxByte; 


Strecke = RECORD 


ıns “OR 
ft 0..2 
yds byte 


END: (* Strecke *) 
VAR 

Inches, 

Feet ı byte: 

AStrecke, 

BStrecke, 


Gesamt : Strecke; 


\riteln ( "Strecke in Yards, Feet und Inches getrennt. ): 
ein ( ‘durch Leerzeichen oder RETURN eingeben. ):; 


Strecke ArES5: 
N recke. vds, AStrecke lt, AStrecke.ins ); 


DO 
ins ); 


NStlecke.ins + BStrecke ins; 
alke ft + BStrecke.ft + Inches DIV 12; 


u Je) 


= Inches MOD 12: 

Feet MOD 3; 

AStrecke.yds 1 BStrecke.yds 
+ Feet DIV 3; 


welLn (' Die Gesamtstrecke ist :'); 
eln (yds : 25, 'yds. ‘, ft: 1, 


ir unge, ins: 1, ins.‘ ) 
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Records angesprochen werden, da sonst eine 
Mehrdeutigkeit auftritt, die der Compiler nıcht 
zuläßt. Möglich wäre aber auch: 

WITH Fassade DO 

Rıchtung := Aussicht.Richtung 
Beide Schreibformen haben ıhren speziellen 
Anwendungsbereich, der sıch aus den Pro- 
grammanforderungen ergibt. 

In den nächsten Folgen werden wır Ärrays 
und Files genauer untersuchen und an Beı- 
spielen zeigen, wie dıe Möglichkeiten dieser 
flexıblen Strukturen genutzt werden können. 


Datenschutz 


In unserem Bingo-Programm sollte mit Hilfe 
von Schleifen verhindert werden, daß bereits 
aufgerufene Nummern wiederholt werden. 
Außerdem sollte die Eingabe von illegalen 
Nummem ausgeschlossen werden. Die beste 
Methode, das Programm vor der Eingabe fal- 
scher Daten zu schützen, ist die Verwendung 
von WHILE-Schleifen, die auf die beiden Re- 
adLn-Änweisungen folgen. In beiden Fällen 
wird die gleiche Struktur eingesetzt: 


WHILE illegale Nummer DO 
eine Fehlermeldung ausgegeben 
einen neuen Prompt anzeigen 
die Daten nochmals einlesen (read) 


Beim Festlegen der Kartennummem muß si- 
chergestellt werden, daß die eingegebenen 
Zahlen nicht außerhalb des möglichen Berei- 
ches (Eins bis 90) liegen und daß eine Wie- 
derholung bereits eingegebener Nummern 
ausgeschlossen ist: 


WHILE NOT ( Nummer IN moeglich ) OR 
( Nummer IN Karte ) DO 
BEGIN 


WriteLn ( Nummer : 20, ' ist nicht legal‘ ); 
write ( 'Neueingabe: ’ : 14); 
ReadLn ( Nummer ) 
END; 
(* etc. *) 
Beim Aufruf der Nummern wird die gleiche 
Methode eingesetzt, die Eintnittsbedingung 
für die Prüfschleife ist jedoch geändert: 
WHILE NOT ( Nummer IN moeglich ) OR 
( Nummer IN Aufruf ) DO 


(* etc. *) 


Arrays ohne 


Grenzen 


In dieser Folge untersuchen wir, für welche Aufgaben sich 
PASCAL-Arrays am besten eignen, wie sie „gepackt“ und indiziert 
werden, und wieviele Dimensionen sie haben können. 


h vielen Programmıersprachen lassen sıch 
reale Daten — Listen, Tabellen, Matrızen etc 
— am einfachsten mit Arrays darstellen. Da Ar- 
rays außerdem leıcht auf einzelne Elemente 
zugreifen können, werden sıe haufıg verwen- 
det. Hınzu kommt. daß dıe frühen Program- 
mıersprachen nur diese eıne Methode hatten, 
um Daten auf Computerebene eınıgermaßen 
übersichtlich anordnen zu können. 

In dıesem Kurs haben wır Jedoch erfahren, 
wıe PASCAL durch bedıngungsgesteuerte 
Schleifen (WHILE und REPEAT) zusätzliche 
Flexibilität gewinnt und wıe leıcht sıch Daten- 
strukturen wıe Sets und Records für komplı- 
zierte Aufgaben eınsetzen lassen. Daher spıe- 
len Arrays ın PASCAL nicht dıe universelle 
Rolle, dıe sıe ın anderen Programmierspra- 
chen einnehmen. 

Dıe meisten Programmierer werden ın den 
PASCAL-Arrays viele vertraute Strukturen wıe- 
dererkennen. Es gıbt dabeı Jedoch zweı wıch- 
tıge Punkte zu beachten. PASCALs Datenstruk- 
turen können Programmıeraufgaben oft besser 
und eleganter lösen als Arrays. Arrays sınd ın 
PASCAL jedoch nur wenigen Einschränkungen 
unterworfen. Sie lassen sıch daher weıtaus 
flexıbler einsetzen als ın vielen anderen Pro- 
grammiersprachen. 

Dıe Definition eines Array-Typs reserviert 
einen bestimmten Speicherbereich fur das Ar: 
ray und legt den Typ der Array-Elemente und 
den Basıstyp des Indıces fest. So reserviert 

WPE 

CharZahl = ARRAY [A .Z’] OF ınteger; 

VAR 

Liste : CharZahl; 


eınen Speicher für 26 Integer, dıe über den Ar- 
ray-Namen gefolgt von einer — ın eckige Klam- 
mern gestellten — Indexangabe angesprochen 
werden können. Arrays werden ın PASCAL ım- 
mer mit eckigen Klammern angegeben. Ur- 
sprünglich galt dıese Schreibweise auch für 
BASIC; da eınıge Zeichensätze Jedoch nur 
runde Klammern zur Verfügung hatten, ent- 
schied man sıch für dıe runden Klammern. Eın 
Integer der oben definierten Liste laßt sıch fol- 
gendermaßen ansprechen: 
Liste [[M'] oder Liste [ pred (Symbol) ] 


Im zweiten Beispiel muß der Ausdruck „pred" 
(Symbol) natürlıch eınem „char"-Wert ım Un- 
terbereich von „A’ bis „Z2" entsprechen. Der/In- 
dex eıner Array-Dımension kann jeder echte 
Skalartyp seın. Reals oder strukturierte Typen 
sind Jedoch nıcht zugelassen, damıt Eingaben 
wıe Liste ['Zweiten'] oder Flag [3.75] vermie- 
den werden. Die einzelnen Llemente des Ar- 
ray-Typs „Char-Zahl" (wıe oben definiert) las- 
sen sıch folgendermaßen mit dem Wert Null 
ınmalısıeren: 
VAR 
Buchstabe : char, 
Zaehler : CharZahl, 
BEGIN 
FOR Buchstabe = A TO 'Z’ DO 
Zaehler [ Buchstabe ]| ‘= O 


Zaehler [1] wäre ın dieser Struktur natürlıch ıl- 
legal (falscher Indextyp) und auch Zaehler 
[a] ıst nicht möglıch (der Index lıegt außer- 
halb des definierten Unterbereiches). Um Feh- 
ler zu vermeiden, sollten Sıe daher fur alle In- 
dexvarıablen entsprechende Typennamen de- 
finieren. Beim Schreiben von eigenen Prozedu- 
ren und Funktionen ıst dıes sowieso kaum zu 
vermeiden. 


Der String-Typ 


Wenn Unterbereiche von Werten bestimmt 
werden, dıe über CONST definiert wurden, 
können ganze Programme oft durch dıe Ände- 
rung einer einzigen Zeile auf andere Größen 
umgestellt werden. So hleße sıch der Typ 
„String“ (der ın PASCAL nıcht vordefiniert ıst) 
auf folgende Weise eınrichten: 
CONST 
StringLaenge = 25; 
Yiee 
StringGroesse — 1. .‚StringLaenge:; 
String = PACKED ARRAY [StringGroesse] 
OF-char, 


Beachten Sıe, daß das reservierte Wort „PAK- 
KED" jedem reservierten Wort der Strukturty- 
pen (SET, ARRAY, RECORD oder FILE) voran- 
gehen darf, Durch das „Packen von Daten- 
strukturen läßt sıch dıe Speicherplatzbelegung 
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Die disziplinierte Da- 
tenstruktur von PÄAS- 
CAL zwingt den Pro- 
grammierer, beim Auf- 
bau seiner Programme 
sehr systematisch vor- 
zugehen. Nur einer der 
hier gezeigten drei 
Grundtypen läßt sich 
nicht in weitere Kate- 
gorien unterteilen. Es 
muß daher für alle Da- 
ten eines Programms 
exakt definiert werden, 
zu welchem Datentyp 
sie gehören. Dieser zu- 
sätzliche Aufwand 
schafft jedoch die Vor- 
aussetzungen für ele- 
gante Lösungen, die in 
vielen anderen Pro- 
grammiersprachen 
nicht möglich sind. 


1116 


PASCAL - Datentypen 


[ REAL \ 


Eınfach 
E ann nur \ 
[ ann nur 


EINEN Wert 
enthalten) 


Skalar 


nn 


% 
' Pointer | 
SUVvvsvvvococovovvonveone 


(Adresse) 


Elementar 


A N rn) 


(feste Länge) 


Strukturiert 


kann mehr als 


einen Wert 
enthalten) 


Fortgeschritten 


USSUSNÄNNNNUSINNTNNNNNNNN 


(Unendliche 
Ausdehnung 
möglich) 


bedeutend verringern. 

Beım Packen von Daten müssen Sıe nur die 
Strıng-Konstanten besonders beachten. Eın in 
Anführungszeichen eıngeschlossener String 
wırd von Eıns (nıcht von Null) an ındızlert und 
muß daher ausdrucklich als 

PACKED ARRAY [ 1..N ] OF char 
deklarert werden (N ıst dıe Anzahl „char“ ın- 
nerhalb des Strings). Sehen Sıe sıch folgendes 
Programm an: 

PROGRAM PackString, 

CONSI 

Pascal = ‘Pascal’; 
DIEBE 

string = PACKED ARRAY [ 1. 10] OF char; 
VAR 


S : String; 
Begın 
SE:= BASGCAL 
S := "Zu viele Zeichen‘; 
S == "Pascal 
END. 


INTEGER 
WERTEN ‘ 


CHAR 


TESSEREEEEESESENNEEN 
BOOLEAN 
ASSSSSSSSSISISSSISSSSS 


Unterbereich 


SENSENISSESENSSSSSSIIISSS 


Aufzähltyp \ 
EEE 


Einfache Basis | 


SESSSSIIIITIIIIIST ISIS SID 


Gemischte Bası$ 


TEXT 
\ ÄSSSSESSSSSSSSSISISSS 


Andere Dateien} 


Varianten | 


ANSSNSSSSSNSISINSSSSIIITNN 


Dynamische 


Strukturen 
(verwenden Adressen) 
IASSSÄASANNNNNARRRNNNNNN, 


In diesem Programm sınd dıe ersten beiden 
Anweisungen illegal, da dıe zugewiesenen 
Strings nıcht dıe geforderte Länge haben. Die 
arıtte Anweisung funktioniert, da der String mit 
vier Leerzeichen auf dıe erforderliche Länge 
gebracht wurde. 


Bildschirmausgabe 


Ware String nıcht als J„PÄCKED" definiert, heße 
sıch dıe Zeichenkette nıcht zuordnen. Obwohl 
PASCAL „read" und „write" ım Normalfall nur 
dann für ganze Strukturen zuläßt, wenn diese 
auf eın Speichermedium abgelegt oder von 
dort eingelesen werden sollen, können dıe 
Zeichenstrings oder Stringvanablen dieses 
Typs dennoch dırekt auf den Bildschirm aus- 
gegeben werden. Andern Sıe zur Übung das 
Programm so um, daß es folgende AÄnweiısun- 
gen unterstützt: 
REPEAT 
write ( "Eingabe String (0 = Ende): ), 


Readln (S), 
WriteLn ( ‘Der String ıst :"',S,”) 
UNTILS I) IN ['Q',’q’] 


Testen Sie mit dem laufenden Programm dann 
folgende Punkte: 

e Werden vorangehende Leerzeichen oder 
TABS ignonert? 

e Was passiert, wenn die Zeile länger ist als 
die Länge des Strings? 

e Was enthält S, wenn nur eın Zeichen einge- 
geben wurde? 

© Was passiert, wenn nur RETURN gedrückt 
wurde? 

e Können Sie Elemente, die zu wenig Zeichen 
enthalten, mit Leerzeichen auffüllen? 


Speichergrenzen 


In PASCAL können Arrays beliebig viele Dı 
mensionen mit beliebig vielen Elementen ent 
halten. Folgende Typendefinitionen mögen 


Das Sieb des Eratosthenes 


Dieses bekannte Primzahlenprogramm wird 
oft für Geschwindigkeitstests eingesetzt. Die 
ÄAusführzeit ist optimiert, da alle geraden Zah- 
len ignoriert und ein Ärray mit Flags (8192 
Elemente für Primzahlen bis 16 384) einge- 
setzt wurde. Das Programm belegt jedoch 
mindestens acht KByte, in Programmierspra- 
chen ohne boolesche Vanablen (Ein-Byte) 
und Integer (Vier-Byte) sogar bis zu 32K. Da 
wir für die PASCAL-Version jedoch nur 16 384 
Bit (2K) benötigen, können wir den ursprüng- 
lichen Algorithmus von Eratosthenes exakt 
umsetzen: 
Alle Zahlen (1. .Maximum) befinden sich in 
einem Sieb. 
Die Zahl Eins wird herausgenommen und 
(falls gewünscht) angezeigt. 
REPEAT 
Die kleinste Zahl wird aus dem Sieb 
herausgenommen und angezeigt. 
Alle Vielfache dieser Primzahl werden aus 
dem Sieb herausgenommen. 
UNTIL das Sieb leer ist. 
Ein Set dieser Größe ist nur auf Großcompu- 
tern möglich, ein Ärray mit kleineren Sets 
kann den Äblauf jedoch simulieren. Der Är- 
ray-Index jedes Sets wird über die Ganzzah- 
lenteilung der bearbeiteten Zahl gefunden, 
wobei ihre Eigenschaft als Set-Element von N 
modulo 100 oder 1000 dargestellt ist. Diese 
Programmversion ist langsamer als die Ärray- 
Version. 


PROGRAMM EratosthenesSieb ( output ); 
(* Primzahlenaenerierung durch den Algorithmus des 
Eratosthenes *) 


CONST 
SetGroesse = 100, (* vom Compiler abhaengig *) 
PredSetGroesse = 99. (* SetGroesse - | *) 
MaxPnm — 16383; (* fuer MaxInt = 32767 *) 
ListMax = 163; (* MaxPrim DIV SetGroesse *) 
TYPE 
PrimBereich = ].. MaxPnm;: 
Dimension = (.. ListMax; 


Computer allerdıngs überhaupt nıcht. 
RıesenTyp = ARRAY [integer] OF SET OF char, 
(* mındestens 64K X 128 Bytes!*) 
NochGroesser = ARRAY [ 1 1000 ] OF 
RECORD 
Nachname, 
Vorname : string; 
Adresse : ARRAY [1 .5] OF String, 
Teilname : SET OF Anwesend, 
te 
END: (NochGroesser *) 


Hier hat der Arbeitsspeicher des Computers 
den vom Programm angeforderten Bereich na- 
türlich nıcht mehr zur Verfügung. 

In den nächsten Folgen werden wır uns mit 


dem Aufbau und dem Einsatz von Files be- 
schäftigen. Da sıch bei PASCAL nur Jeweils eın 


oder zwei Datensätze ım Arbeitsspeicher zu 
befinden brauchen, entfallen viele Beschrän- 
kungen die durch die Größe des verfügbaren 
Speichers bedingt sind. 


SetBereich = 0.. PredSetGroesse:; 
Sı SET OF SetBereich;: 
Eratosthenes ARRAY |[ Dimension | OF Sı, 
Kardınal 0.. Maxlnt: 
VAR 
Sıeb : Eratosthenes; 
Zaehler, 
Vielfaches : Kardınal; 
N « Dimension; 
Index : PrımBereich: 
Nummer : O0..PredSetGroesse; 
BEGIN 
Wınite Ln; 
WniteLn ( 'Sieb des Eratosthenes' : 50 ); 
WrieLn ( '- zum 00]; 
Writeln; 
WriteLn. 
For Index :* 0 TO ListMax DO 


Sıeb [ Index ] := [0.. PredSetGroesse |; 
(* Alle Zahlen ın das Sieb laden *) 


Sieb [ 0] := [ 2.. PredSetGroesse |]; 
(* Wnteln ( ) ): *) (* Pnmzahl per Definition *) 
Zaehler := |; 


FORN: 
BEGIN 
Index : 
Nummer : 


2 TO MaxPnm DO 


N DIV SetGroesse; 
N MOD SetGroesse; 


IF Nummer IN Sıeb [ Index |] THEN 
BEGIN 
Zaehler := succ (Zaehler ); 
(* Wnteln (N); *) 
Sıeb [ Index ] := Sıeb [ Index ] - [ Nummer |; 


Vielfaches :=N I! N; 


WHILE Vielfaches <- MaxPnm DO 

BEGIN 
Index :- Vielfaches DIV SetGroesse; 
Sıeb [ Index ] := Sıeb [ Index ] - 

[ Vielfaches MOD SetGroesse |, 

Vielfaches :— Vielfaches + N 

END 

END 
END; 


Wnteln: 
WnteLn (Zaehler : 25, ' Primzahlen gefunden. ) 


END. 


IEW 


[pP (SIE ERS 2272727 ee 
Eigene Abläufe 
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In PASCAL können Sie von der Sprache vorgegebene Prozeduren und 
Funktionen durch eigene Abläufe ergänzen. In diesem Artikel 
untersuchen wir, welche Unterschiede zwischen Funktionen und 
Prozeduren bestehen, und gehen auf ihre Gültigkeitsbereiche ein. 


R PASCAL können Sıe eigene Funktionen 
und Prozeduren definieren, wenn Ihnen dıe 
von der Sprache vorgegebenen Möglıchkeiten 
wie „wnte“ oder „sqrt" nıcht genügen. Bevor 
wır uns jedoch dıesen Mechanısmen zuwen- 
den, wollen wır zunächst untersuchen, warum 
beispielsweise „write“ eine Prozedur ıst, aber 
keine Funktion, und „sqrt" eine Funktion, aber 
keine Prozedur. Bei dem Befehl 

write ('Hallo!') 
erwarten wir, daß dıe als Parameter angege- 
bene Zeichenfolge ın dieser Reihenfolge aus- 
gegeben wird. Mıt anderen Worten: „wnite” ruft 
ein Unterprogramm auf, das dıe Daten als Zeı- 
chenfolge auf den Bildschirm brıngt. Was aber 
passıert beı folgender Anweisung: 

sart (256) 

Eın Compilerfehler wırd angezeigt — Änweı- 
sungen dieser Art sınd nıcht legal. Der Befehl 

write(sart (256)) 
wäre jedoch völlıg ın Ordnung: Auf dem Bild- 
schirm erscheint 1.60000E+Ol. 

Da dıe wrıte-Anweisung eınen Äblauf aus- 
lust (hier: Daten an eın Ausgabegerät sendet) 
wırd sıe als Prozedur per Namen aufgerufen. 
Eine weitere von PASCAL vorgegebene Proze- 
dur ist beispielsweise „page(F)", (ın der Text- 
dateı F wird eine neue Seite angesprochen). 
Der Ausdruck „sqrt" dagegen liefert als Ergeb- 
nıs nur eine reale Zahl — dıe Quadratwurzel 
des Argumentes. Er muß Immer mit einem eın- 
fachen numerischen „Ärgument" versehen 
sein. Im Gegensatz zu Prozeduren sınd Funk- 
tıonen daher keine Anweisungen: Ebenso wıe 
dıe Zahl 16 ohne weitere Information nur dıe- 
sen Wert darstellt, haben Ausdrücke wıe 
„sqrt(X/ 3)" oder „odd(N)" ebenfalls keine eı- 
genständige Bedeutung. Die Namen der Funk- 
tıonen können daher wıe Variablen angesehen 
werden, die zwar nie ınitlalısiert wurden, aber 
automatisch berechnet werden, wenn ıhr 
Name ım Programm auftaucht. Der Ergebnis- 
wert wırd dabeı ımmer vom aktuellen Wert des 
Argumentes abgeleitet, das heißt, er ıst Funk- 
tıon des Argumentes. 

Prozeduren liefern Jedoch keine Ergebnis- 
werte und können daher auch nıcht ın Aus- 
drücke eingesetzt werden. Eın Befehl wıe: 

N:=Writeln 
ist ebensowenig möglıch wıe LETN = PRINT 
in BASIC. 

PASCAL erleichtert das Schreiben umfang 


reicher Programme, ındem es dıe Möglıchkeit 
bietet, eigene Funktionen und Prozeduren an- 
zulegen, deren Zugnff und Verbindung unter- 
einander exakt gesteuert ıst. Da dıe Namen 
hier wie beı den Vanlablenbezeichnungen nur 
wenigen Einschränkungen unterworfen sınd, 
können Sıe für Ihre eigenen Unterprogramme 
eindeutige und ausführliche Bezeichnungen 
angeben. Sehen Sıe sıch folgende Programm- 
struktur an: 

PROGRAM Beispiel (input, output, Dateı); 

(* Deklarationen .. *) 
BEGIN 
Oeffne (Datei); 
WHILE NOT EofF (Dateı) DO 
BEGIN 
read (Dateı, Inhalt); 
Bearbeite (Inhalt) 
END 
END. 


EoF und EoLn 


Obwohl wır Dateızugriffe noch nıcht behandelt 
haben, sollten Sıe den Inhalt des Programms 
problemlos verstehen können. Im Deklara- 
tıonsteil des Programms ware dabeı eıne Pro- 
zedur aufgeführt, dıe auf dem Speicherme- 
dıum eıne Dateı sucht und sıe zum Lesen eröff- 
net (Oeffne). Eine weıtere Prozedur verarbeitet 
dann die Dateı (Bearbeite). Das Programm ent- 
halt dıe von PASCAL ebenfalls vordefinierte 
Prozedur „read“, dıe wır bısher nur zum Eınle- 
sen von Texteingaben eıngesetzt haben, dıe 
aber ebenfalls struktunerte oder unstruktu- 
nıerte Daten aus entsprechenden Dateıen le- 
sen kann. Die boolesche Funktion „EoF" (End 
of File — Dateiende) liefert den Wert „true", 
wenn der letzte Datensatz der als Argument 
angegebenen Dateı gelesen wurde. Wırd der 
Dateiname weggelassen, dann nımmt die 
Funktion dıe Standarddateı als Argument an. 
Beı Textdateien liefert dıe Funktion „EoLn" 
(End of Line — Zeilenende) den Wert „true, 
wenn das letzte Zeichen eıner Zeile gelesen 
wurde. 

Abgesehen von den oben genannten Unter- 
schieden haben Programme, Prozeduren und 
Funktionen vieles gemeinsam - alle sınd Mo- 
dule mit eigenen lokalen Vanablenbeschre'- 
bungen und Änweısungsfolgen. So ıst der In- 
halt des Kopfes fast der einzige wesentliche 


Syntax-Unterschied. Ein Programmkopf be- 
steht aus dem reservierten Wort „ PROGRAM", 
eınem vom Anwender vorgegebenen Namen 
und eıner Parameter-Liste, dıe dıe Dateıen an- 
gıbt, mıt denen das Programm Daten aus- 
tauscht. Ein Prozedurkopf dagegen besteht 
aus dem reservierten Wort „PROCEDURE"“ und 
einer Parameter-Liste mit den Typennamen 
der Datenvanablen. Hier eın Beıspiel: 
PROCEDURE Zeilen (Anzahl Zeilen : 
VAR 
N : integer; 
FOR N := 1 TO AnzahlZeılen DO 
Writeln 


ınteger); 


END; 

Der END-Anweisung einer Prozedur folgt ım- 
mer eın Semikolon und keın Punkt wıe am 
Ende eines Programms. Dem formalen Para- 
meter-Namen „AnzahlZeılen" wırd beim Aufruf 
der Prozedur der jeweils aktuelle Wert über- 
geben: 

Zeilen (5) 

Zugegeben, der Vorgang ıst recht sımpel, 
wenn Sıe aber oft mehrere Leerzeiılen nacheın- 
ander ausgeben müssen — ın dıesem Falle 
fünf — dann erspart Ihnen dıe Prozedur die la- 
stıgen Folgen von WnteLn-Änweisungen. Mit 
dıeser Allzweckroutine können Sıe soviel 
Leerzeilen ausgeben, wıe Sıe Jeweils brau- 
chen. „Zeilen (10)" erzeugt lO Leerzeilen, „Zeı- 
len (20)" 20 etc. 

Unsere eınfache Prozedur ıst ebenfalls eın 
gutes Beispiel für dıe Datensicherheit, die 
PASCAL bietet. So muß die Steuervanable für 
dıe FOR-Schleife als echte lokale Vanable de- 
klarıert seın. Es ıst nıcht moglıch 

FOR Anzahl/Zeılen := 1 To AnzahlZeılen DO.. 
zu schreiben, da die Sıcherheit eıner Prozedur 
nıcht garantiert werden kann, wenn die steuer- 
varlable nıcht lokal oder auch nur ‚relatıv glo- 
bal“ ıst. Haben Sıe schon eınmal stundenlang 
nach einem Fehler ım BASIC-Programm ge- 
sucht, das Programmzeilen dieser Art enthielt 

300 FORN=1TI0T 

400 GOSUB 2000 

500 NEXT N 
um schließlich herauszufinden, daß N von der 
Unterroutine mıt einem anderen Wert belegt 
wurde? PASCAL fangt Fehler dieser Art von 
vornherein ab und spart Ihnen so vıel Zeit beı 
der Programmentwicklung. Jeder Name, der 
ım Inneren eınes Blocks deklanert wırd, kann 
sıch nur auf dıesen Block beziehen. Sein Gül- 
tıgkeitsbereich (das heıßt der Teil des Blocks, 
von dem aus auf dıesen Namen zugegnffen 
werden kann) erstreckt sıch zwar vom Punkt 
seiner Deklaration bıs zum Blockende, kann 
aber durch Neudefinition weiter eingeschränkt 
werden. Die Vanable N des vorigen Beispiels 
bezog sıch auf das Innere der Prozedur „Zeı- 
len" und ıst damit eıne lokal deklarıerte Ganz- 
zahl. Diese Deklaration hat beı jedem Proze- 
duraufruf automatisch Vorrang vor globalen 
Vanablen gleichen Namens. 


Bereichsweise 


PROGRAM Bereich; 


VAR 
N : integer; 
X: real; 


PROCEDURE A (Y: real ); 
A 


B 

N(global) 
X(real) 

X(in Proz. A) 
N(in Proz. B) 


Ir/BE 
X = SET OF char; 
(* etc. *) 
PROCEDUREB (N 
Imete,”) 


BEGIN (* Hauptprogramm — 
Bereich *) 


: integer ); 


At suce (N) / 3): 
B(N); 
AIX); 


(* etc. *) 
END. 


Dıe globalen Variablen N und X ım Haupt- 
programmteil von „PROGRAM(Bereıch)" be- 
zıehen sıch auf das gesamte Programm. Der 
Gültigkeitsbereich von X reicht daher mit Aus- 
nahme der Prozedur Ä von ıhrer Deklaration 
bıs an das Programmende. In A wırd X als Ty- 
penname für „X(SET OF char)" verwendet, der 
aber nur für Prozedur A Gultigkeit hat. In ahn- 
licher Weise ıst N der formale Parameter der 
Prozedur B und keıne globale Vanable. 

A und B beziehen sıch weiterhin zwar auf 
das gesamte Programm, doch fängt der Gültig- 
keitsbereich von B erst beı seiner Definition 
an. Während Sıe also A durchaus ın die Proze- 
dur B einsetzen können, ıst B für A unerreich- 
bar. Hıer zeigt sıch dıe Logık von PASCAL: 
Keın Programm läßt sıch aufrufen, bevor es ge- 
schnıeben wurde. Es wırd auch klar, warum 
alle Definitionen und Deklarationen ımmer ın 
der festgelegten Reıhenfolge erfolgen müs- 
sen: CONST, TYPE, VAR und dann die Defını!- 
tıon der Prozeduren und Funktionen, geordnet 
nach den strukturellen Erfordernissen des Pro- 
gramms. Da viele PASCAL-Compiler den Quel- 
lentext nur einmal durchgehen, ıst dıese logı- 
sche Anordnung unbedingt notwendig. 


Modularer Programmaufbau 


Der zusätzliche Aufwand mit lokal deklanerten 
Vanablen zahlt sıch aus. Wenn Programme alle 
ihre Daten als Parameter an Prozeduren über- 
geben, wırd eın hoher Grad an modularem 
Aufbau erreicht. Zwar gıbt es PASCAL-Pro- 
gramme, dıe Prozeduren ohne Parameter-Li- 
sten verwenden und nur globale Daten eınset- 
zen, doch sollte dıese Art der Programmierung 
möglıchst vermieden werden. Modularer Pro- 
grammaufbau hat außer erhöhter Datensicher- 


Die untenstehende Tabelle zeigt den 
Bezug und die Gültigkeitsbereiche 
der Variablen des nebenstehenden 
Kurzprogramms. 


Hauptprog 
Hauptprog 
Hauptprog. 
Hauptprog. 
A 
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heit noch den weiteren wesentlichen Vorteil, 
daß eın Programmiererteam an einem großen 
Programm arbeiten kann, ohne sıch um dop- 
pelt vergebene Varnablen-Namen kümmern zu 
müssen. Beim Aufruf von B wird der Wert der 
globalen Variablen N ın dieser Prozedur zwar 
als aktueller Parameter an eine Varlable gleı- 
chen Namens übergeben, doch ıst N dort eine 
völlig andere Variable. Das zeigt folgende 
wichtige Punkte auf: 

® Beim „Blockeintntt" wird der übergebene 
Wert ın eine lokale Varable kopiert. 

® Eine Veränderung dieses Wertes ınnerhalb 
des Blocks hat keine Auswirkungen auf die ur- 
sprüngliche globale Varılable. 


Grundwerte 


Das Programm „Grundwert“ zeigt, wie sich 
Wertparameter von Prozeduren aus einsetzen 
lassen. Bei Ängabe einer Basis von 2 (binär) 
bis 16 (hexadezimal) werden per Tastatur ein- 
gebene Dezimalzahlen in der entsprechenden 
Schreibweise dargestellt. So würde 32767 in 
Hexadezimal TFFF werden, in Binär 
1111111111111111 oder 77777 in Oktal. 

Versuchen Sie, folgende Änderungen in das 
Programm einzufügen: 
O Um Negativdarstellungen zu ermöglichen, 
muß die Zahl in ihr Zweierkomplement umge- 
wandelt werden. Auf Maschinenebene wird 
dafür die Zahl umgekehrt und Eins addiert. 
Finden Sie eine Methode, die diese Aufgabe 
in PASCAL erledigt? 
O Möchten Sie die Umwandlung andersherum 
ausführen? Nehmen Sie dazu das Programm 
als Modell für die Eingabe einer Zahl mit Basis 
2 bis 16 und für die Ausgabe im Dezimalfor- 
mat. Die beiden vorgeschlagenen Programm- 
teile lassen sich auch zu einem Programm zu- 
sammenfassen. 


PROGRAM GrundWert (Input, Output); 
(* wandelt Dezimalzahlen in Zahlenformate jeder 
Basis im Bereich binär bis hexadezimal um *) 


Spalte = 79; (* Bildschirm / Drucker *) 


Byte = ().. 255; 
Cardinal =0O.. Maxlnt; 


Zahl, 
Basis : integer; 
Ende, 
legal : boolean; 


DE ah Ve a ee 


PROCEDURE SchreibeZiffer ( Ziffer : Byte); 
(* Wert von Liste [ Zaehler ] an Ziffer übergeben *) 


BEGIN 
IF Ziffer IN[O..9] 
THEN 


write (Ziffer :1) 


ELSE (* Darstellung als A... F*) 
CASE Ziffer OF 
: write 
: write 
write 
write 
write 


® Der übergebene Wert kann ein Ausdruck 
Jedes (korrekten) Typs sein. 

Natürlich muß Jeder Prozeduraufruf die aktu- 
ellen Parameter enthalten, dıe mit der formalen 
Liste am Prozeduranfang übereinstimmen. Der 
Übergangsmechanismus kann daher als eine 
Art Inıtialiısıierung der formalen Parameter-Na- 
men mit aktuellen Werten angesehen werden. 

Zeilen (succ (N+gap)DIV 2) 
führt innerhalb der Prozedur folgende Zuwei- 
sung aus: 

AnzahlZeilen := succ(N+gap)DIV 2 
Versuchen Sıe einmal herauszufinden, was 
passiert, wenn die übergebenen Werte ınner- 
halb der Prozedur verändert werden. 


15 : write ('F) 
END; (* CASE °) 


END; (* SchreibeZiffer *) 
et u wir Ber Dr s) 
PROCEDURE Anzeigen (N : Cardinal; 
Basis : Byte); 
CONST (* Alle diese Daten sind für die 
Prozedur lokale Daten *) 
MaxZiffer = 32; 
TYPE 
Grenze = 1.. MaxZiffer; 
VAR 
Liste : ARRAY [ Grenze ] OF Byte; 
Index : Grenze; 
Zaehler : Byte 


BEGIN 
Zaehler :— 0; 


REPEAT 
Zaehler := succ ( Zaehler ); 
Liste [ Zaehler ] = N MOD Basis; 
N := N DIV Basis 


UNTILN = 0; 
(* Anzeige beginnt bei MSB:*) 
FOR Zaehler := Zaehler DOWNTO 1 DO 
SchreibeZiffer ( Liste [ Zaehler ] ) 


END; (* Anzeigen *) 
(Se 
BEGIN (* Grundwert — Hauptprogramm *) 


REPEAT 


WriteLn ( 'Geben Sie eine Zahlenbasis:’ ): 
WritelLn ("von 22..16 an’ : Spalte ); 

WriteLn ( ‘(Zahlen ausserhalb = Ende)’ : Spalte ); 
Write ( ‘Basis ? '); 

read (Basis ); 

legal := Basis IN [2.. 16 ]; 


IF legal THEN 
BEGIN 
write ( "Zahl zum Wandeln (0 wechselt Basis) ? ’ ); 
read ( Zahl ); 
Ende := Zahl <= 0; 


WHILE NOT Ende DO 
BEGIN 
write ( Zahl : Spalte DIV 2, 
" zu Basis ', Basis : 1, ’ ist’); 
Anzeigen ( Zahl, Basis ); 
Writeln; 


write ( ‘Neue Zahl ? '); 
read ( Zahl ); 
Ende := Zahl <= 0; 


END 
END 


UNTIL NOT legal 
END. 
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im Einsatz 


In der letzten Folge wurde gezeigt, daß PASCAL keine 
Funktionsanweisungen zuläßt, da Funktionen Werte berechnen und 
ihre Aufgaben sich von denen der Prozeduren unterscheiden. In 
diesem Artikel sehen wir uns an, wie sie eingesetzt werden. 


unktionen lassen sıch zwar wıe Prozeduren 

mit Namen aufrufen, können Jedoch nur ın 
Gleichungen eingesetzt werden. Während eın 
Prozeduraufruf den Ablauf eines Unterpro- 
gramms auslöst, liefert der Aufruf einer Funk- 
tion den Ergebniswert einer Berechnung. Die- 
ser Wert kann eın einfacher Typ seın (beı- 
spielsweise eine reale Zahl), eın Skalar oder 
eın „Pointer“. Der Name eıner Funktion unter- 
scheidet sıch von dem eıner Prozedur nur 
durch das Wort FUNCTION und dıe Typenbe- 
zeichnung für den Ergebniswert. Die Funktion 
„odd" beispielsweise könnte man auch selbst 
definieren: 

FUNCTION Odd (Nummer : Integer) : boolean; 

BEGIN | 

Odd := Nummer MOD 2 > O0 

END; (* Odd *) 
Da das Ergebnis einer Funktion ın ıhrem Na- 
men gespeichert wird, muß der Funktions- 
name den Typ des Ergebniswertes enthalten. 
Funktionsnamen lassen sıch daher als Vana- 
blen ansehen, die zwar nie Initlalısıert wurden, 
deren Wert jedoch berechnet wird, wenn der 
Name ın einer Gleichung auftaucht. Funktions- 
namen können nur auf der Iınken Seite einer 
Zuordnung auftreten. Ware dıe gleiche Funk- 
tion nachlässıg programmıert, wie: 

IF Nummer MOD 2 > O THEN 

Odd := true 
(der Fall „ELSE Odd := false“ fehlt) besteht die 
Möglichkeit, daß das Ergebnis nıcht definiert 
1St. 

Wie beı Prozedurparametern wird beı Aufruf 
einer Funktion der Wert des aktuellen Parame- 
ters an lokale Varablen (hıer dıe Ganzzahl 
„Nummer") übergeben. So führt folgende An- 
weısung 

WriteLn ( Odd ( sqr ( N DIV 100) ) ) 

(die ımmer „false“ ergıbt) vier Abläufe aus: 

1. der Ausdruck „N DIV 100" wırd berechnet: 
2. das Ganzzahlergebnis wird an „sqr" als ak- 
tueller Parameter übergeben; 

3. das Quadrat dıeses Parameters wird an 
„Odd" übergeben; 

4. das Ergebnis wırd auf boolesche Weise be- 
wertet und an dıe WnteLn-Prozedur wiederum 
als Wertparameter übergeben. 

Der Wert N wırd durch dıe Ausführung der Än- 
weısung natürlıch nicht verändert, da eın Funk- 
tıonsergebnis ıst Immer nur „Funktion“ der 
übergebenen Parameterwerte seın kann. Da 


PASCAL nicht dıe eigentlichen Vanablen, son- 
dern nur Kopien der Varıablenwerte an Funk- 
tionen und Prozeduren weiıtergibt, ıst sıcherge- 
stellt, daß dıe ursprünglichen Parameter sıch 
nicht ändern, selbst wenn ıhre Werte ım Inne- 
ren einer Funktion oder Prozedur umgewan- 
delt werden. 


Globale Konstanten 


Zwar kann unter PASCAL direkt auf globale 


Daten zurückgegniffen werden, doch empfeh- 
len wır, davon so wenig wie möglıch Gebrauch 
zu machen. Alle Datenübergaben beı Proze- 
dur- oder Funktionsaufrufen sollten von Para- 
meterlisten gesteuert werden, selbst wenn die 
Daten ınnerhalb des Unterprogrammbereichs 
verfügbar sınd. Die einzige Ausnahme zu die- 
ser generellen Regel sınd globale Konstanten, 
die ın PASCAL per Definition nıcht verändert 
werden können. Beachten Sıe aber, daß kon- 
stante Werte, dıe als Parameter übergeben 
werden, zu lokalen Variablen werden und da- 
her nıcht länger geschützt sınd. 
FUNCTION Klein ( Zeichen : char ) : char; 
(* wandelt als Argument uebergebene 
Grossbuchstaben ın Kleinbuchstaben um *) 


CONST 
Offset = 32; (* ASCll ord(’a’) — ord(’A' )*) 
BEGIN 
IF Zeichen IN [ ’A'. .Z] 
THEN 
Klein := chr ( ord ( Zeichen ) 
+ Offset ) 
ELSE 
Klein := Zeichen 
END; (* Klein *) 


Es kann der Fall eıntreten, daß Prozeduren 
Werte von globalen Vanablen doch verändern 
müssen, da ıhre Aufgabe sonst hınfällıg wäre. 
Eın gutes Beispiel dafür ıst dıe Prozedur 
„read. Wenn read (N) dıe eingegebene Ganz- 
zahl nur an eine lokale Varlable weitergeben 
würde, hätte das für uns wenig Wert. Wır müs- 
sen daher dıe Adresse des Varıablenparame- 
ters (und nıcht nur den Varlablenwert) überge- 
ben, damit dıe Prozedur sıch direkt darauf be- 
ziehen kann und nicht nur eine Kopie bearbeı- 
tet. Dieser Mechanismus sollte Jedoch nur mit 
Prozeduren eingesetzt werden. 

Die Übergabe eines Variablenparameters 
wird ın der Parameterliste der Prozedur durch 


das reservierte Wort „VAR" vor dem Vanablen- 
namen angezeigt. Der Aufbau der Parameterli- 
ste ıst mit der VAR-Deklaration eines Blocks 
ıdentisch, allerdıngs brauchen ım Prozedur 
kopf nur dıe Varlablennamen angegeben zu 
werden, dıe von der Prozedur verändert zu- 
rückgegeben werden sollen: 
PROCEDURE Ablauf ( VAR Zaehler : 
ZaehlerListe ); 
Um diese vielseitig einsetzbare Technik deut- 
lıch zu machen, werden wir eın Programm ent- 
wickeln, das über dıe Tastatur Namen eınlıest 
und zu Jedem Namen einen Geldbetrag stellt, 
den diese Person schuldet. Zur Vereinfachung 
nehmen wiır einen String pro Namen und Ganz- 
zahlen als Geldbeträge. Nachdem das Pro- 
gramm getestet wurde, können Sıe Adressen, 
Telefonnummern etc. hinzufügen. Als Ergebnis 
wollen wır eine Liste erzeugen - ın alphabetı- 
scher Reihenfolge oder nach Beträgen geord- 
net. Als Datenstruktur bietet sıch eine Liste von 
„Records" an, deren Felder sich später leicht 
erweitern lassen. Wır können dabeı Jeden Re- 
cord einzeln ansprechen, aber auch Jedes eın- 
zelne Feld als Sortierschlüssel verwenden. Zu- 
nächst die Datendefinition: 
CONST 


Stringlaenge = 20; 
ListenLaenge = 50; 

TYPE 
Cardinal = (0. .Maxlnt; 


StringGroesse = 1. .StringLaenge; 
Geprüfte PROGRAM 
Eingaben 


Das Programm „Karten- 
Leser" ist eine sichere 


TYPE 
Cardinal 


VAR 
PosNum 


Kartenleser 


—(.. Maxlnt; 


= PACKED ARRAY 

[ StrıngGroesse ] OF char. 

= RECORD 
Name . string, 
Schulden : Cardınal; 

(* weitere Felder moeglich *) 

END; (* Daten *) 

Grenze = 1]. .ListenLaenge; 

Record. iste = ARRAY [Grenze] OF Daten: 
Wır können zwar nur fünfzıg Namen mit nicht 
mehr als 20 Zeichen eingeben, dıese Angaben 
lassen sıch jedoch leicht ändern. 

Aus folgenden Gründen haben wır die Un- 
terbereiche und Strukturen mit TYPE definiert: 
l. Sıcherheit — ein Index vom Typ „Grenze“ 
kann nıe die festgelegten Grenzen eines Ar- 
rays überschreiten. 

2. Fehlersuche — sollte während des Testens 
eın Bereichsfehler auftreten, läßt sıch dıe Ursa- 
che leıcht feststellen. 

3. Effektivität — lokale Varılablen sparen Spei- 
cher und vermeiden überflüssige Doppelver- 
gaben. 

4. Notwendigkeit — PASCAL „besteht" darauf, 
daß als Parameter nur Namen und keıne Be- 
zeichnungen wie 0. .255 eingegeben werden. 

Als nächstes müssen wir nun die Varlablen 
deklaneeren und einen Algorıthmus aufbauen. 
Diesen Ablauf behandeln wır ın der nächsten 
Folge. Entwickeln Sie als Übung ihren eigenen 
Programmalgorthmus, und stellen Sie die ent- 
sprechenden Prozeduren zusammen. 


OK := Symbol IN Zeichen; 


( input, output ); 


IF OK THEN 
BEGIN 
NO; 


Methode, positive Zahlen 
einzulesen. Dabei wer- 
den die Daten als Zei- 
chen eingegeben. Die 
Umwandlung in den ent- 
sprechenden Zahlenwert 
geschieht durch die Sub- 
traktion des Ziffernwertes 
von der Ziffer „0“. Da die 
Zeichen (. .9 Jückenlos 
definiert sind, funktio- 
niert das Programm bei 
allen Zeichensätzen. Be- 
achten Sie, daß das Pro- 
gramm nur zwei globale 
Vanablen besitzt. 

Da die Daten für die 
Zeichenverarbeitung und 
die Funktion „Wert“ nur 
von der Prozedur „Karte- 
Einlesen“ benötigt wer- 
den, wurden diese Kom- 
ponenten auch nur für 
diese Prozedur definiert. 

In dem Programm gibt 
es nur einen einzigen 
möglichen Fehler — bei 
der Eingabe eines Wer- 
tes größer als „MaxiInt“ 
stürzt der Zuordnungsbe- 
fehl der WHILE-Schleife 
ab. 


PROCEDURE KarteEinlesen ( VARN 


FUNCTION Wert ( Ziffer : char ) 


: Cardınal; 


InOrdnung : boolean; 


: Cardinal; 
VAR OK : boolean ); 
CONST 
Leerzeichen nr 
TYPE 
Einfach =-(0..9; 


VAR 
: char; 
" SET OF char: 


Symbol 
Zıftern 


t -----— 


— — — Ebene 2 


: Einfach; 
(* liefert den Zahlenwert einer 
Ziffer jedes Zeichensatzes *) 
BEGIN 


Wert := ord ( Zeichen ) — ord ('0' ) 


END: (* Wert *) 
tbene 2 
(* Zurueck zu Ebene I *) 
BEGIN (* KarteEinlesen *) 


REPEAT 
read ( Symbol ) 


UNTIL Symbol > Leerzeichen; 


Zeichen :=[ '0'..'9']; 


WHILE Symbol IN Zeichen DO 
BEGIN (*berechnen auf Basis 10 *) 
N := 10 * N + Wert ( Symbol ); 
read ( Symbol ) 
END (* Begrenzungszeichen oder ’EoLn’ *) 
END (* hinter der Zahl beseitigen *) 


END; (* KarteEinlesen *) 
Ebene ] 


BEGIN (* Kartenleser — Ebene 0 Hauptprogramm *) 


page ( output ); 

Writeln; 

WriteLn ( ' Dieses Programm liest positive‘ ); 

Writeln (' Ganzzahlen ( im Bereich 0... ', 
Maxlnt : 1, ')'); 

Writeln ( "Das Programmende wird von der’ ); 

Writeln ( "Fehlererkennung gesteuert.’ ); 


WriteLn; 


write ( "Geben Sie eine Zahlein : '); 
KarteEinlesen ( PosNum, InOrdnung ); 


WHILE InOrdnung DO 
BEGIN 
Writeln; 
write ( "Die eingegebene Zahl war : ' ); 
Writeln ( PosNum : 1); 
Write (‘Zahl ? '); 
KarteEinlesen ( PosNum, InOrdnung ) 


END; 


Writeln ( '"——— FEHLER ERKANNT —— — ': 40) 
END. 
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rasch 
Auf- und Abbau 
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Wir entwickeln einen allgemeinen Algorithmus für den Aufbau 
unserer Datenbank und stellen mehrere Programme vor, die die 
strenge Programmstruktur von PASCAL beim Aufbau und Abruf von 


Dateien verdeutlichen. 


n unserer letzten Folge begannen wir mit 
dem Aufbau eıner Datenbank, für dıe wır nun 
einige Varlablen und folgenden allgemeinen 
Algorıthmus definieren: 
VAR 
Liste : RecordlListe; 
Anzahl : Cardınal,; 
BEGIN 
Anzahl : = 0; (* aktuelle Laenge der Liste *) 
(* Daten ın die Liste einlesen und 
Anzahl aktualısieren *) 
(* Datensaetze sortieren *) 
(* Datensaetze anzeigen *) 
END. 


Für dıe Umsetzung dieses Algorıthmus ın eın 
Programm legen wır zunächst dıe Prozeduren 
für dıe dreı Hauptschritte an. Nachdem wır für 
Jede Prozedur dıe Parameterlisten aufgestellt 
haben, können wır das Gerüst für die einzel- 
nen Prozedurblöcke entwerfen. Die letzte An- 
weısung des Programms soll folgendermaßen 
lauten: 
Print (Liste, Anzahl) 


Für dıe Übergabe der Datenliste und der Da- 
tensatzzahl brauchen wır ın den Prozedurkopf 
von „Print“ nur folgende Vanablen eınzusetzen: 
PROCEDURE Print (Objekte : RecordListe, 
MaxAnzahl : Grenze); 


Für den Augenblick werden wır dıeses Modul 
Jedoch nıcht weıterentwickeln, sondern erst 
dıe anderen Grundprozeduren entwerfen. Wır 
müssen dabei Jede eınzelne mit eınem geeig- 
neten Namen versehen, entscheiden, welche 
Daten als Parameter übergeben werden sollen 
und ob eın Teıl davon das Format von „VAR"- 
(Adreß-)Parametern haben soll. 

Bısher haben wır nur Datenstrukturen mit fe- 
sten Grenzen kennengelernt. Die Grenzen 
wurden mit TYPE-Definitionen festgelegt und 
so dem Compiler mitgeteilt. PASCAL bietet 
aber auch Datenstrukturen, deren Größe sıch 
während der Programmausführung verändern 
kann (mit bestimmten Einschränkungen sogar 
der Typ). Diese Strukturen werden nur durch 
dıe Kapazıtät des Arbeitsspeichers oder des 
Speichermediums begrenzt. 

Wıe Arrays können dıe Elemente einer Da- 
teı Jeden struktunerten oder unstruktunerten 
Typ annehmen - nur eıne Dateı von Dateien ıst 


nıcht möglıch. Um eıne Dateı mıt einer unend- 
lıchen Anzahl Datensätze aufbauen und verar- 
beiten zu können, müssen wır an unsere Defı- 
nıtıon des Recordtyps nur folgende Deklara- 
tıon anhängen: 


VPE 

DateıTyp = FILE OF Daten; 
VAR 

Dateı : DateiTyp; 


Dıe einzelnen Datensätze können dabeı Na- 
men, Summen oder Jede andere Informatıon 
enthalten. Ebenso wıe wır mıt „read (Zeichen)" 
eın Zeichen aus eıner Dateı lesen, so können 
wır mit „read (Dateı, Feld)" oder „wnite (Dateı, 
Feld)“ ganze Datensatzstrukturen als eın Da- 
tenobjekt ansprechen. Wır brauchen diese Da- 
teıen Jetzt nur noch zu eröffnen, um mit den 
vordefinierten Prozeduren „reset" und 
„rewnite" darauf zugreifen zu Können. 

Wenn Dateıen auf eın Speichermedium ge- 
schrieben werden sollen, müssen ıhre Namen 
ın der Parameterliste des Programmkopfes 
aufgeführt seın. 

PROGRAM DateıVerwaltung 

(input,output,Dateı); 


Jeder Eınsatz der Änweısungen „read“ und 
„write" ruft dıe vordefinierten PASCAL-Prozed- 
uren für Eın- und Ausgabe auf. Bısher kannten 
wır nur dıe Eın- und Ausgabedateıen „ınput" 
und „output“, die auf Microcomputersystemen 
normalerweise dıe Tastatur und den Biıld- 
schırm bezeichnen. Da PASCAL alle System- 
teile als Dateien ansıeht, haben alle Eın- und 
Ausgabevorgänge das gleiche Format. So 
schreibt „write (N)“ ohne Angabe eınes Dateı- 
namens den Wert von N ın die Dateı „output“, 
während „read" und „ReadLn" ohne Dateına- 
men automatisch dıe ınput-Dateı ansprechen. 
Beides sınd Textdateien — das heıßt, Jeder Da- 
tensatz besteht aus einem eınzıgen char-Wert. 

Im Gegensatz zu anderen Dateıarten können 
Textdateien außer eıner Dateı-Endmarkıierung 
noch beliebig vıele Zeilen-Endmarkierungen 
enthalten. Diese Markierungen sınd Je nach 
Betriebssystem unterschiedlich. Sie können 
beispielsweise aus einzelnen Steuerzeichen 
oder zwei Zeichen (wie CR und LF) bestehen 
oder statt eines Zeichens dıe Zeılenlänge ent- 
halten. 

Für den universellen Eınsatz bietet PASCAL 


ausschließlich für Textdateien dıe Funktionen 


„EoLn (F)" und dıe beiden vordefinierten Pro- 
zeduren „ReadLn (F)" und „WnteLln (F)". Die 
EoF-(F)-Funktion kann natürlich beı allen Da- 
teitypen verwandt werden. Da Zeıilen-Endmar- 
kıerungen Jede Form annehmen können, er- 
gıbt das Lesen von „char“ bei EoLn=true eın 
Leerzeichen. Normalerweise wiırd daher vor 
dem Lesen auf EoLn überprüft. 


Dateien eröffnen 


Da „input" und „output“ vor und nach jeder Pro- 
grammausführung existieren, sind sie perma- 
nent eröffnet und brauchen nıcht erst lokalı- 
siert oder aufgebaut zu werden. Alle anderen 
Dateien müssen Jedoch mit einem externen 
Systemnamen angesprochen werden und er- 
öffnet sein, wenn mit der Prozedur ‚reset" dar- 
aus gelesen werden soll. Für das Schreiben 
einer Dateı mit der Prozedur „rewrite (Dateı)" 
gelten dıe gleichen Regeln. Der generelle Ab- 
lauf für dıe Bearbeitung einer Textdatei sieht 
folgendermaßen aus: 
(* Datei eröffnen *) 
WHILE (* nicht Ende der Dateı *) DO 
WHILE (* nıcht Zeilenende *) DO 
(* Zeichen lesen *) 
(* Zeichen verarbeiten *) 
(* Zeilenende überspringen *) 


Die Prozeduren „read" und „write" arbeiten mit 
Dateıbuffern und den einfachen Eın- und Aus- 
gabebefehlen „put“ (Ausgabe) und „get“ (Ein- 
gabe von einer Dateı). Beim Aufruf der Proze- 
dur „rewrite" befindet sıch so lange keine In- 
formation ım Datenbuffer, bıs eine Schreibope- 
ration ausgeführt wird: 


F := Daten; 

put(F) 
Ähnlich funktioniert die Anweisung ‚read ( F, 
Daten )": 

Daten :=F: 

get(F) 


Die Eın- und Ausgabeanweisungen unserer 
Copy-Prozedur: 

read ( Quelle, Zeichen ); 

write ( Zıel, Zeichen ) 


könnten daher auch ganz anders, nämlıch fol- 
gendermaßen aussehen: 

Ziel” := Quelle’; 

put ( Ziel ); 

get ( Quelle ) 


In diesem Fall benötigen wır die lokale char- 
Vanable „Zeichen“ nicht. Mit folgendem Ab- 
lauf läßt sıch der Vorgang von ReadLın (F) bes- 
ser verstehen: 
WHILE NOT EoLn (F) DO 
get ( F ); (* Rest der Zeile ignorieren *) 
get ( F ) (* und EoLn-Zeichen überspringen *) 


Nach eınem „ReadLn" enthält der Dateibuffer 
Immer das erste Datenelement der nächsten 
Zeile. Wenn EoLln (F) „true“ ıst, kann dies eın 
Leerzeichen sein, bei EoF (F) = true ist es je- 
doch undefıniert. In dıesem Fall ıst nıcht nur 
der Versuch, aus dieser Dateı zu lesen, ıllegal, 
sondern auch Jede andere Dateioperation, wie 
das Testen des Dateıbuffers. Andere Dateıen 
als ınput und output müssen daher sehr sorg- 
fältıg programmiert werden. 

Wir wissen nun, wie die verschiedenen End- 
bedingungen begonnen werden und können 
daher eıne Prozedur schreiben, dıe Leerzeı- 
chen überspringt. 


en Leerzeichenlleberspringen ( VAR 
: text); 


CONST 
Leerzeichen ="; 
VAR 
fertig : boolean; 
BEGIN 
fertig :=EoF (F}); 
IFNOT fertig THEN 
fertig := input” > Leerzeichen; 


WHILE NOT fertig DO 
BEGIN 


PASCAL legt bei der 
Eröffnung der Datei F 
automatisch den Buffer- 
bereich F an und liest 
dort das erste Zeichen 
der Datei ein. Ein read- 
Befehl ordnet dieses 
Zeichen einer Variablen 
zu und überträgt das 
nächste Zeichen der 
Datei in den Bufferbe- 
reich. Sind die ersten 
Zeichen von F bei- 
spielsweise „PENIBEL“, 
dann wird bei Eröff- 
nung der Datei das Pin 
F übertragen. Der erste 
read-Befehl ordnet das 
Zeichen P einer Varia- 
blen zu und ersetzt es 
dann im Buffer F durch 
das E. 


1187 


1188 


get(F): 
fertig :=EoF (F); 
IF NOT fertig THEN 
fertig :=F > Leerzeichen 
END 
END; (* Leerzeichenlleberspringen *) 


Beachten Sıe, daß dıese Routine ın eıner Text- 
dateı nıcht nur alle Leerzeichen überspringt, 
sondern auch die Zeıchen der Zeilen-Endmar- 
kıerung. Sollen nur die Leerzeichen einer Zeile 
übersprungen werden, muß die Bedingung fol- 
gendermaßen geändert werden: 

fertig :=EoLn(F)OR(F > Leerzeichen ) 


Der Ablauf für dıe Beseitigung aller „leeren“ 
Zeichen sıeht daher so aus: 
REPEAT 
Leerzeichenlleberspringen (F ); 
IFNOT 'EOF ( FYTHEN 
TextGefunden := NOT EolLn (F) 
UNTIL TextGefunden OR EoF ( F) 
Mit dieser letzten Änderung lassen sıch leicht 
Interaktive Programme schreiben, dıe Leer- 
eingaben ausschließen: 
REPEAT 
write ( "Daten eingeben :' ); 
Leerzeichenlleberspringen ( input ) 
UNTIL NOT EoLn ( ınput ) 


Zwar kann diese Routine nıcht dıe Eingabe von 
Steuerzeichen abfangen, die das Dateiende 
markieren, doch können wir dafür ımmer auf 
dıe vorherige Prozedur zurückgreifen. 

Die Prozedur „assıgn“ wird ınzwischen fast 
als „Standarderweiterung" angesehen und fın- 
det — wie „open“ und „seek“ für Random- 


Das Programm „CopyText“ 


Die Zuordnung „text“ kennzeichnet einen in 
PASCAL häufig eingesetzten Datei-Typ. Die 
Deklaration einer Textdatei-Variablen ge- 
schieht in der Parameterliste des Programm- 
kopfes. Das folgende Programm kopiert Text- 
dateien. Damit es sich für eine Vielzahl von 
Anwendungen einsetzen läßt, haben wir den 
Kopiervorgang als Prozedur angelegt. 

Bedenken sie, daß Compiler, die nicht stan- 
dardmäßig ausgelegt sind, die Anweisung „re- 
set (F1,'Quelle’)“ im Hauptprogramm benöti- 
gen. Beachten Sie weiterhin, daß beide Dateien 
als VAR-Parameter an die Prozedur Copy über- 
geben werden und damit nicht nur die Zielda- 
tei aktualisiert, sondem auch die Quelldatei 
gelesen und vom Status her verändert wird. 
Dateivariablen werden immer als Adreß-Para- 
meter und nie als Wertparameter übergeben, 
da die letzteren immer lokale Variablen sind. 
Bei Dateien, deren Größe den verfügbaren Är- 
beitsspeicher überschreitet, muß ein Einlesen 
mit Wertvariablen daher immer zum Äbsturz 
des Programms führen. Aus Gründen der 
Platzersparnis wird hier jedoch für umfangrei- 
che Strukturen vom Typ Array und Record oft 
eine Ausnahme gemacht. 


Access-Dateien — vermutlich schon bald Eın- 
gang ın alle PASCAL-Versionen. Zwei oft ver- 
wandte Erweiterungen sınd auch: 

FUNCTION Fstat ( DateiName ) 
dıe den booleschen Wert „true“ liefert, wenn 
eine Datei bereits besteht, und 

PROCEDURE Rename ( AlterName, 

NeuerName ) 

ermöglicht die Umbenennung von Dateien. 


PASCAL-Dialekte 


PASCAL kennt keine Beschränkungen in der 
Zahl der Dateien, die gleichzeitig eröffnet 
sein können. Da Dateien jedoch über das Be- 
triebssystem des Computers aktiviert werden, 
gibt es hier Abweichungen von der strikten 
Einheitlichkeit der Sprache. So existieren 
PASCAL-Versionen, die Dateien nicht unter- 
stützen. 

Auch die von Betnebssystemen vorgege- 
benen Namensstrukturen für Dateien können 
Probleme verursachen. PASCAL-Versionen 
von Großrechnemn nehmen beispielsweise 
die ersten zehn Zeichen eines Dateinamens 
und durchsuchen damit den Speicher nach 
der zugehörigen Datei. Viele Systeme verfü- 
gen jedoch nicht über diese Möglichkeit. Bei- 
spiele dafür sind: A:CP/M-FIL.DAT, 
#4:APPLEFOR.MAÄT und O:PBBCFILE. Die 
„standarderweiterung“ für den korrekten 
Aufbau eines PASCAL-Dateinamens ist die 
Prozedur „assign“. Sie wird vor „reset“ oder 
„rewrite“ eingesetzt: 

assign ( Dateizuordnung, DateiName ) 

Für unser Programm genügt daher: assign 
( Datei, D:DateiNan.dat ). 


PROGRAM CopyText ( Fi, F2); 


VAR 
F1, 
F2 : text; 


PROCEDURE Copy ( VAR Quelle, 
Ziel : text); 
VAR 
Zeichen : char; 
BEGIN 
WHILE NOT EofF ( Quelle ) DO 
BEGIN (* eine Zeile kopieren *) 
WHILE NOT Eotn ( Quelle ) DO 
BEGIN 
read ( Quelle, Zeichen ); 
write ( Ziel, Zeichen ) 
END; 
(* jetzt das Zeilenende kopieren: *) 
ReadLn ( Quelle ); 
Writeln (Ziel) 
END 
END; (* Copy *) 


BEGIN (* CopyText — Hauptprogramm *) 


assign ( F1, "Quelle‘ ); 

reset ( F1 ); (* Datei finden und zum Lesen eroeffnen *) 
assign ( F2, 'Ziel’ ); 

rewrite ( F2 ); (* Datei anlegen *) 

Copy (Fi, F2) 


END. 


Pointer-Symbole 


Ein undefinierter Poin- 
ter (entweder nach sei- 
ner Deklaration und vor 
einer Zuweisung, oder 
nach dispose). 


Ein Pointer, der „nir- 
gendwohin“ zeigt (nach 
NIL-Zuweisung). 


Eine Record-Einheit mit 
Datenfeld und Pointer. 
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ERS RETTET ER 
Dynamische Daten 


In dieser vorletzten Folge unserer PASCAL-Serie wird untersucht, wie 
sich mit Pointern, dem Heap und verketteten Strukturen Datenmengen 
von unbegrenzter Größe verarbeiten lassen. 


Mi: zwei Standardprozeduren (newund dis- 
pose) und einem speziellen Datentyp ge- 
winnt PASCAL eıne außerordentliche Flexıbilı- 
tät beim Einsatz dynamıscher Speicherplatz- 
verwaltung. „Pointer“ sınd Variablen, die statt 
Datenwerten (beispielsweise Ganzzahlen) 
„Zeiger" auf strukturierte oder unstrukturierte 
Datenobjekte enthalten. Zeiger werden wıe Da- 
teibuffer geschrieben (die auf den nächsten 
Datensatz der Datei zeigen, jedoch auf völlig 
andere Weise) und durch einen Aufwärtspfeil 
definiert. Dieser Pfeil muß vor einem Typenna- 
men stehen, der dem Datentyp entspricht, auf 
den der Pointer zeigen soll: 
TYPE 
GrossArray = ARRAY 1... 100 OF real; 
ıindırekt —= t GrossArray,; 

ISO-PASCAL-Compiler verwenden dafür auch 
das Symbol (' @ '). Die Typendefinition reser- 
viert eine Speicherstelle. Die Adresse eines 
großen Arrays wird dort allerdıngs erst gespei- 
chert, wenn es mit der Prozedur neweıngerich- 
tet wurde. Bis zu diesem Zeitpunkt ıst der Wert 
des Pointers — wie bei Jeder anderen Varlablen 
— undefiniert. 


VAR 
Adresse : indirekt; 
Zahl : Integer; 


reserviert den Speicherplatz für eine Maschı- 
nenadresse (16 Bits bei einem Acht-Bit- 
Rechner) und eine Ganzzahl. Beide Variablen 
wurden Jedoch noch nicht auf einen bestiımm- 
ten Wert ınıtlalisıert. 

So wie wır Ganzzahlen vor dem Eınsatz mit 
Null initialisieren, können wır auch Poıntern den 
Wert NIL zuweisen. Das reservierte Wort NIL 
zeigt an, daß der Fointer gegenwärtig nıcht be- 
nutzt wird. Sein Wert entspricht dem numen- 
schen Wert Null. Die Variablen unseres Beı- 
spiels könnten daher folgendermaßen ınitıalı- 
sıert werden: 

Adresse := NIL; 

Zahl =(; 

Da (dıe Konstante) NIL eine Typenbezeichnung 
Ist, wäre es eigentlich logisch, sıe ın einer Pro- 
grammiersprache mit einem separaten Namen 
zu belegen. 

Soll eıne Pointer-Vanable auf eın neues 
Datenelement zeigen, braucht nur die PASCAL- 
Prozedur new aufgerufen zu werden, dıe ım 
Speicher dann den entsprechenden Platz re- 
serviert und dessen Adresse ın den Pointer 
schreibt. Wenn wır uns nun auf das Datenele- 
ment und nicht auf dıe Poınter-Adresse bezie- 


hen wollen, müssen wır den Pointer p „de-refe- 
renzieren" bzw. als pt schreiben. Beachten Sie, 
daß der Aufwärtspfeil nun wıe bei dem Datei- 
buffer Aınter dem Poınter-Namen steht und als 
„das Element, auf das p zeigt" bezeichnet wird. 


Löschen des Pointers 


Wenn Ponnter-Daten, dıe mit newangelegt wur- 
den, nicht mehr gebraucht werden, kann man 
dıe PASCAL-Prozedur dispose aufrufen, dıe das 
genaue Gegenteil von new bewirkt. Sıe gibt 
den reservierten Speicherplatz wieder freı und 
weıst dem Zeiger den Wert NIL zu. Das fol- 
gende Programm verdeutlicht dıese Vorgänge. 
Aus Gründen der Einfachheit verwenden wir 
hier nur Ganzzahlen. 
PROGRAM ZweiPlusZwei (output); 


IMPE 

pointer = tınteger; 
VAR 

pl, 

p2 : pointer; 

Ergebnis : ınteger; 
BEGIN 

new (pl); 

DM ri 

new (p2); 

p2, ph: 


Ergebnis Bl} 82}: 

WriteLn ( plt,' + ,p2t,' = ‚Ergebnis )}; 
dıspose ( pl ); 

dıspose ( p2 ); 

END. 

Diese etwas seltsame Art, zwei und zwei zu ad- 
dıeren, verdeutlicht zwei wichtige Punkte: 

® Dynamische Vanablen sınd anonym - sıeha- 
ben keinen Varlablennamen (wıe N), der ır- 
gendwo ım Programm den Wert 2 enthält. Der 
Bezug auf die Datenelemente ıst ındırekt. 

® Nach dem zweiten dispose existiert Im Spel- 
cher nur noch dıe Ganzzahl (Ergebnis); dıe dy- 
namıschen Daten gıbt es nıcht mehr. 

Wenn Sıe unsere Serle über dıe Assembler- 
sprache verfolgt haben, werden Sıe sıcher be- 
merkt haben, daß der ındırekte Bezug der 
Pointer der ındırekten Adressierung auf 
Maschinenebene entspricht. Zwischen diesen 
beiden indirekten Bezügen gibt es Jedoch 
große Unterschiede. Zunächst sınd ın PASCAL 
nie die echten Adressen bekannt. Die einzige 
„absolute Adresse“, dıe der PASCAL-Program- 
mierer kennt, heißt NIL. 

Auch können Sıe ın PASCAL den Speicher- 


platz beliebig oft belegen, freigeben und wıe- 
derverwenden, ohne je den Speicher „aufräu- 
men" zumüssen. Da PASCAL dıe gesamte Spei- 
cherverwaltung übernimmt, interessiert nur, 
wieviel Speicherplatz noch frei ıst. Diese Infor- 
matıon läßt sıch über die nıcht standardmäßig 
vorgesehene Funktion MemAvanlerfahren, — ın 
einigen Versionen auch über die Funktion Free. 
Sie liefert dıe Anzahl der freien Speicherbytes. 
Auch die Funktion SızeOf (Typenname)'ıstsehr 
nützlich, da sıe dıe Bytezahl des gewünschten 
Typs angıbt. 

PASCAL teılt den verfügbaren Arbeitsspeı- 
cher ın zwei interne Strukturen — den Stack und 
den „Heap“. Der Stack speichert beim Aufruf 
von Prozeduren und Funktionen die lokalen Da- 
ten, Rücksprungadressen und Ergebniswerte. 
Dıe dynamıschen Daten werden dagegen dem 
Heap zugeordnet. Er arbeitet ähnlıch wıe der 
Stack, ist aber keine LIFO-Struktur (Last In, Fırst 
Out). Der Heap fängt am anderen Ende des ver- 
fügbaren Arbeitsspeichers an und wächst ın 
Rıchtung auf den Stack. Beı übermäßigem Ge- 
brauch von new und/oder beı recursiven Pro- 
grammen können Stack und Heap durchaus 
„zusammenstoßen". Dies laßt sıch Jedoch durch 
folgende Abfrage vermeiden: 

IF SızeOf (Objekt) > Prozent * MemAvail 

THEN.. 

Objekt ıst der Typenname der Daten, dıe ım 
Heap untergebracht werden sollen, und Prozent 
ein Wert ım Bereich von 0,7, der dem Stack 30 
Prozent des Speichers zur Verfügung stellt und 
dem Heap 70 Prozent. Wenn MemAvail Free 
als „Hochwassermarkıierung" eingesetzt wird, 
sollte auch eıne Liste der nıcht benötigten Poıin- 
ter-Objekte angelegt werden. 

Die eigentliche Stärke der Pointers zeigt sıch 
erstbeim Aufbau verketteter Strukturen. Für die 
Strnnng-Verarbeitung werden oft Arrays mit fe- 
sten Längen (beispielsweise 80 Zeichen) eın- 
gesetzt. Eın ın einem derartigen Array gespei- 
chertes Schriftstück belegtjJedoch auch fürjede 
Leerzeile 80 Bytes. 

PASCAL kann Schriftstücke mit varılerenden 
Längen weitaus ıntelligenter speichern. Da 
PASCAL-Compiler zwischen Namen _ unter- 
schiedlicher Länge unterscheiden können, Ist 
hier dıe einfachste Struktur eın Record mit zweı 
Feldern: eın Feld für das Datenelement (ın die- 
sem Fall chars) und ein Pointer-Feld, das auf 
den nächsten Record der.Liste zeigt. 


TTPE 
String = tZeichen; 
Zeichen = RECORD 
ch : char; 
naechster : String 
END; 
VAR 
Zeile : String; 
BEGIN 
Zeile := NIL; etc. 


Eın String mıt der Länge Null wırd durch dıe Zu- 
ordnung des Wertes NIL dargestellt. Jede an- 


Verkettete Listen 


PASCAL reserviert Speicherplatz für 
eine (undefinierte) Adresse. Dieser Än- 
weisung folgt eine Typendefinition. 


VAR 


Ein Pointer kann durch Zuordnung des 
Spezialwertes NIL mit „Null“ initialisiert 
werden. 

newiZeile); 


Die Prozedur new weist den Daten Spei- 
cherplatz zu und setzt die Ädresse in die 
für die Pointervariable reserwierte Spei- 
cherstelle. 


Zeile 


Zeilet.ch := 'a; 


Der Bezug auf Datenelemente ist nicht 
direkt, sondem eine Art „indirekte 
Adressierung“ mit der Schreibweise !. 


Zeilet.naechster :—= NIL; 


P :—= Zeile; 
WITH Pt DO 
BEGIN 


new(naechster); 


Zeile : string; 


Zeile := NIL: — 


7 


en naechster 


BE 


naechstert.ch :— 'b’; #r]|- "bp |- 7 
END \ 


Eine einfach verkettete Liste 


Ge | [ee [ses 


dere Zeichenfolge erhält für. dıe einzelnen Zeı- 
chen (char) einen neuen Record und eınen 
Pointerauf den darauffolgenden Record. Da der 
Pointer des allerletzten Records auf NIL gesetzt 
wurde, läßt sıch auch das Ende des Strings 
leicht feststellen. Mıt dıeser Prozedur lassen 
sıch die Strings ausgeben: 
WHILE Zeile <> NIL DO 
BEGIN 
write (Zeilet.ch); 
Zeile := Zeılet.naechster 
END 
Beachten Sıe, daß dıe Datenstruktur recursiv ist 
(sie definiert sıch selbst). Da dem Poinnterfeld 
keın vollständig definierter Typ zugeordnet 
werden kann, Ist hier der Bezug auf den näch- 
sten Record möglıch. 


Das Programm Kreisliste 


Daten ın eine dynamische Kreisliste ein. Da 
- die Daten ın alphabetischer Reihenfolge nach 
dem Inhalt des Schlüsselfeldes (Name) einge- 
- setzt werden, sınd keıne zusalzlichen Sortier- 
algorithmen notwendig. 


StringlLaenge 
Leerzeichen 


TYPE 


Cardınal O.. Maxlnt: 
StringGroesse “ 1... StringlLaenge: 
String PACKED ARRAY | StringGroesse ] 
OF char; 
Objekt RECORD 
Name : String; 


(* Platz fuer andere Felder *) 
Schulden : Cardinal 
END: (* Objekt *) 


PASCAL bietet dem 
Programmierer die 
Möglichkeit, „verket- 
tete Listen“ einzuset- 
zen. In diesen außeror- 
dentlich flexiblen Da- 
tenstrukturen zeigt je- 
des Datenelement auf 
das nächste Element 
der Liste. Die Listen 
können einfach verket- 
tet sein (d.h. jedes Ele- 
ment zeigt auf das 
nächste) oder doppelt 
verkettet (d.h. die 
Pointer zeigen auf das 
nächste und das letzte 
Element der Liste) oder 
im Kreis verkettet (das 
letzte Element einer ein- 
fach verketteten Liste 
zeigt wieder auf das 
erste Element der Liste). 


Mit diesem Programm 
können Sie Records mit 
gemischten Daten in 
eine dynamische Kreis- 
liste einsetzen. Da die 
Daten nach einem al- 
phabetisch geordneten 
Schlüusselfeld eingefügt 
werden, sind hier keine 
Sortieralgorithmen not- 
wendig. 
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Pointer = Datensatz: 


= RECORD 
Element : Objekt: 
naechstes : Pointer 
END; (* Datensatz *) 


Datensatz 


Liste i Pointer: 
a a ug IE 1 Ten *) 


VAR 
Daten "Objekt: 
U ; boolean: 


(* er EN %) 
PROCEDURE eerzeichenUeberspringan (VARE: Text ); 
be Leerzeichen am Anfang ignorieren = 
VAR 
fertig : boolean; 
BEGIN 
fertig := Bor (F I 
WHILE NOT fertig DO 


fertig :— NEID Leerzeichen ) OR EoLn (F};: 


IF NOT fertig THEN 
BEGIN 
get(F); 
fertig :- Eof ( Fr) 
D 


END 
END; (* -eerzeichenUeberspringen ® 
ee ee ne %) 
PROCEDURE Zifferiesen IVAR F : Text: 
VARN : Cardinal: 
VA : boolean ): 
(* eine nicht negative Zahl einlesen = 
TYPE 
einfach = o „2 gi 


VAR 
Ziffern : SET OF Char: 
fertig boolean: 


a a m engen no *) 


FUNCTION Wert ı Zifter : char ) : einfach: 
(° char in Numerischen Wert umwandeln "ij 
BEGIN 


Ziffer : char): boolean: 
E* feststellen, Ob groesser als Maxint °) 
BEGIN 


IFN= Maxint DIV 10 

THEN 
Legal :— Wert ( Ziffer) <- Maxint MOD 10 

ELSE 
Legal ;— N< MaxInt DIvy 10 

END; (* Legal %) 
(! —n nern? *) 
‘) 


BEGIN (* Zifferlesen 


Ziffern = 0,39: B 
:= NOT EoF ESE 


IFOK THEN (* Wurde eine Ziffer gefunden ? 2) 
OK = Fr in Stellen: 


N 0; 
fertig = NOT OK; 


WHILE OK AND NCT tertig DO 
BEGIN (N auf Basis 10 aufbauen =) 
N := 10° N + Wert (Fr). 
get (F): 
fertig :— EoF (F ); 


IF NOT fertig THEN 
iertig := NOT U FI IN Ziffern ) 
IF NOT fertig THEN 
= Legal (N, En) 
END; 


IF NOT EoF (F ) THEN 
Readtn er; 


END; (* Zifferlesen =} 


% 
2 en EEE ) 


PROCEDURE ( ZeileLesen (VAR S String ); 
(* Eine Zeile chars von der Tastatur lesen *; 


VAR 
Index StringLaenge 
Zeichen ch 
BEGI 
„eerzeichenUederspringen (input }: 
Index := 0; 


ndex = Succ (Index 7 
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read | Zeichen Ns 
Ss [Index] = Zeichen 
END: 


IF Index < StringLaenge 
THEN ı* mit Nullen auffuellen 1 
FOR Index := Index + ı TO StringLaenge DO 
SUndex = chr (oo) 
ELSE 
IF NOT Eoln THEN (* Zu viele chars ®) 
WriteLn ( Achtung — Eingabe verkuerzr )- 


ReadLn 
END; (* ZeileLesen ) 


Di En — 


VAR 
Sucher, 
Verbindung : Pointer: 
Alpha : String; 


BEGIN (* Daten in den Kopfsatz Setzen *) 
LISTEFElement = Daten; 
ucher "= Liste: 
Alpha En uchertnaechstes Elomenz yame. 


WHILE Daten. Name < Alpha DO 
BEGIN (* Liste durchsuchen u 
Sucher = S'cherf.naechstes: 
Alpha := nee 
ND: 


(* keine Veberpruarzung, auf Doppelbelegung = 
new (Verbindung): (* Weiteren Datensatz anlegen ®) 
Verbindung !. Element -= Daten: (* Daten einfuegen *) 
Verbindung |. naechstes := Sucher t naechstes: (* und 


Sucher t. Näechstag .. Verbindung "(in der Liste *) 
END: (* Einsetzen ®) 


write ( ‘Name ? IE 
Zeilel.osa, ( Daten.Narne % 

(* bei Leereintrag änhalten: * 
WHILE Daten Nas fil<> chr (0) Do 

BEGIN 

REPEAT 
REPEAT 
write [ 'Hoehe der Schulden ? : 20): 


IF EoLn ( Input ) THEN 
ReadLn | input ): 


rerzeichenUeberspringen (input ) 
UNTIL NOT EoLn ( input ): 


"Bitte Neueingabe re | 
UNTIL OK; 


Einsetzen ( Kopf, Daten ); 
Writeln (' (Ende - RETURN): 40); 
write ( "Name ur 
ZeileEinlesen ( Daten Name ) 

END 


END; {* Einlesen *) 


PROCEDURE Anzeigen (Liste : Pointer ); 


VAR 
Print : Pointer: 

BEGIN (+ «uerst Kopfsatz veberspringen % 
5 h E 


riteln | Gewuenschte Liste :' ). 
WriteLn: 
(* noch mehr Däiten um Anzeigen > ei 
WHILE NOT ( Print = Liste ) DO 
BEGIN 
WITH prirstt. Element DO 
Writeln l Schulden :8, Name : 30 ):; 
WriteLn, 
Print :— Printt. Naechstes 


( ee %) 


BEGIN (* Kreisliste __ Hauptprogramm = 


new ( Liste a Dummykopfsarz anlegen = 
Lister Naechstes --. Liste; pr auf sich selbst zeigen ) 


Writeln ( die geschuldere Summe in (aanzen) Mark:’ |. 
Bere 


Einlesen [ Liste ): (* Daten in die Liste Schreiben *) 
Anzeigen (Liste ); (* In Reihenfolge ausgeben °) 
iteln | ": 30) 


—— fe 


END 


200 
GOTO ENDE 
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Dieser Artikel ist der Abschluß unserer PASCAL-Serie. Wir gehen 
nochmals auf die Beschreibung der Datenstrukturen ein und berühren 
einige Aspekte der Sprache, die bisher nicht erwähnt wurden. 


N: Wırth, der Vater von PASCAL, gab 
einem seiner Bücher den Titel „Daten- 
strukturen + Algorithmen = Programme" und 
deutete damit an, wıe wichtig korrekte Daten- 
beschreibungen für dıe Älgorıthmen sınd, die 
dıese Daten bearbeiten. Wenn wır beıspliels- 
weise eıne Zeichenfolge ın einem char-ÄArray 
unterbringen, brauchen wır für deren Verarbeı- 
tung völlıg andere Abläufe als beispielsweise 
beı verketteten Listen. 

Nehmen wır als Beispiel dıe einfache Auf- 
gabe, dıe Länge eınes Strings festzustellen. 
Bedenken Sıe, daß ungenutzte Array-Elemente 
mit dem ASCII-Zeichen für Null, chr (0) ausge- 
füllt sınd beziehungsweise dynamische Listen 


Das BaumSort-Programm 


Dieses Programm setzt einige Prozeduren des Pro- 
gramms „KreisListe“ aus dem vorigen Artikel ein. Ein 
Datensatz besteht aus einem Namen, dem Schulden- 
betrag und anderen Feldern, die - falls gewünscht — 
hinzugefügt werden können. Die Daten werden über 
die Tastatur eingegeben und in den „binären Baum“ 
eingefügt. 

Jedes Strukturelement des Baumes hat zwei Pointer, 
die es mit den Elementen „darüber“ und „darunter“ 
verbinden. Neue Daten lassen sich einfügen, indem 
sie mit dem Namenstfeld jedes Strukturelementes ver- 
glichen werden und dann in das entsprechende Ver- 
bindungsfeld (NiedngZweig und HochZweig) ver- 
zweigen. Sobald ein leeres Strukturelement gefunden 
ıst (mit einem NIL-Wert in der Verzweigung), wird 
das neue Element eingesetzt. Die Daten werden dann 
mit einem einfachen recursiven Vorgang ın die Datei 
geschnieben. 

Unser Beispiel läßt sich als Grundlage für eine Da- 
tenbank verwenden, die Sie genau auf Ihre Zwecke 
abstimmen können. 

Für einfache Anwendungen ist die Kıeisliste ver- 
mutlich besser geeignet. Da es dort keine NIL-Pointer 
gibt, entfällt bei jedem Vergleich auch der doppelte 
Test. Die Anzahl der NILs des binären Baums ent- 
spricht der Zahl der Strukturelemente + |. 


PROGRAM BaumSort ( ınput, output, Date: ); 
CONST 
DateıName = 'BaumDaten', 
Strınglaenge = 25; 
YPE 


Cardınal =0,22 Maxlnt; 
StringGroesse = 1. . StringLaenge; 
String —= PACKED ARRAY [ StringGroesse ] 
OF char; 
Objekt = RECORD 
Name : String; 
(* andere Felder *) 
Schulden : Cardinal 
END, (* Objekt *) 
Dateiart = FILE OF Objekt; 
Baum = tZ/weıg; 
(* Vorausblick auf . *) 
Zweig —/RECORD 


mıt dem Poınnterwert NIL abschließen. Die Ar- 
ray-Version sieht nıcht kompliziert aus: 
FUNCTION Laenge (S : String): Cardınals; 
VAR 


N : 0. .‚StringLaenge; 
gefunden : boolean; 
BEGIN 
N =(; 
gefunden := false; 
REPEAT 
N =N+H1; 


gefunden :=S[ N] = chr(0) 
UNTIL gefunden OR (N=StringLaenge); 


IF gefunden 
THEN 
Element . Objekt, 
NiedrigZweig, 
HochZ/weıig . Baum 
END; (* Zweig *) 
VAR 

Daten . Objekt, 

Dateı . Dateıart; 

Basıs : Baum, 


INCLUDE 'Utils.src’ (** Quellendateı mit: 
Leerzeichenlleberspringen, 
Eınlesen und ZeileLesen, 
— sıehe Programm KreisListe **) 


PROCEDURE BetragLesen ( VAR Betrag : Cardınal ); 

(* feststellen, ob Cardınalwert legal ıst *) 

VAR 

OK : boolean; 
BEGIN 
REPEAT 
REPEAT 
write ( "Betrag ? ': 20); 
IF EoLN ( ınput ) THEN 
ReadLın ( ınput ); 
Leerzeichenlleberspringen ( ınput ) 
(* bei Zeilenende Neueingabe ermoeglıchen *) 
UNTIL NOT EoLan ( ınput ); 
Einlesen ( ınput, Betrag, OK ); 
IF NOT OK THEN 
Wnteln ('——— FEHLER ———' : 20, 
"Bitte Neueingabe‘ ) 
UNTIL OK (* Betrag muss legal seın *) 

END, (* BetraglLesen *) ’ 
N eo = ) 
PROCEDURE Wachsen ( VAR Blatt . Baum, 

(* an den Baum anhaengen *) Daten : Objekt ), 

BEGIN 

new ( Blatt ); 
WITH Blattt DO 
BEGIN 
Element = Daten; 
NıedrigZweig '= NIL; (* noch keine weite- 
ren Daten *”) 
HochZweiıg = NIL (* nıcht mehr ın diesem 
Zweig *°) 
END 
END, (* Wachsen *) 


Laenge :=N — 1 
FISE 
Laenge := StringLaenge 
END, (* Laenge *) 


Hıer können Jedoch Miıßverständnisse und 
Fehler entstehen. Warum benötigen wır beı- 
spielsweise dıe lokale Boolesche Vanable ge- 
funden? Und warum wırd Laenge der Wert 
N-] zugewiesen? Dies sınd kleıne Probleme. 
Da komplızıertere Algorıthmen Jedoch eın grö- 
ßeres Fehler-Rısıko mit sıch bringen. wurden 
Strukturen dıeser Art unnotig zusatzliche Ver- 


wirrung stiften. 


Der Eınsatz von „Bıt-Flags“ (Boolescher Va- 
nnablentyp) ıst einer der ältesten Programmıer- 
knıffe. Oft werden dıese Typen jedoch nıcht 
als logıscher Teil des Algorıthmus eıngesetzt, 
sondern nur zur Steuerung des Computers. In 
unserem Beispiel muß daher dıe lokale Va- 
rnıable N verwandt werden, nıcht Laenge, da 
Laenge Funktionsname ıst und keıne Vanable. 
Wenn Laenge auf der rechten Seıte eıner Än- 


weısung erscheint, wıe: 


Laenge = Laenge + 1 


y ee “ 
PROCEDURE Klettern ( VAR Schoessling Baum, 
(* Platz zum Eınfuegen fınden *) Daten Objekt ), 
VAR 
Stamm Baum, 
Groesser boolean, 


BEGIN 
WHILE Schoessiing <> NIL DO 
BEGIN 
Stamm ° = Schosssling, 


Groesser = Daten Name > Stammt 
Element Name, 
IF Groesser 
THEN (* aufwaerts klettern *) 
Schoessiing = Schoesslingt 
HochZweig 
ELSE (* abwaerts klettern *) 
Schoessling = Schoesslingt 
NiedrigZweig 
END, 
Wachsen ( Schoesslıng, Daten ); 
IF Groesser 
THEN (* darueber eınsetzen *) 
Stammt HochZweig .= Schoessling 
ELSE (* darunter einsetzen *) 
Stammt NıiedrigZweig .= Schoessling 
END, (* Klettern °) 


| 
PROCEDURE Schreiben ( VAR F Dateıart, 


(* Daten ın Dateı schreiben *) Wurzel Baum ), 
BEGIN 


IF Wurzel <> NIL THEN 
WITH Wurzelt DO (* Recursıon *) 

BEGIN (* ın Reihenfolge schreiben *) 

Schreiben ( F, NiedrigZweig ), (* zuerst 
niedrig, ”) 

write ( F, Element ), (* dann dıe Wurzel *) 
Schreiben ( F, HochZweig ), (* dann hoch *) 

END 

END; (* Schreiben *) 


PROCEDURE Wiederholen ( VAR Wurzel Baum ), 
(* Speicherplatz wıeder verfuegbar machen *) 
BEGIN 
IF Wurzel <> NIL THEN (* Recursıon *) 
BEGIN (* erst dıe Zweige — *) 


Wiederholen ( Wurzelt NiedrigZweig ). 


wırd das Funktionsmodul recursıv aufgerufen. 
Stellen Sıe diesen Ablauf Jetzt eıner Laenge- 
Funktion für verkettete Listen gegenüber. Be- 
denken Sıe dabeı, daß dıe Typendefinition von 
String bei dynamıschen Darstellungen anders 
ist, da hier Strings von beliebiger Lange ent- 
stehen können und Datenbeschreibungen da- 
her oft recursıv definiert werden müssen. 
Viele einfache Beispiele für Recursionen 
lassen sıch auch als ıteratıve Algorıthmen dar- 
stellen. Sehen wır uns dazu dıe Laenge- 
Funktion für einen recursiven Stningtyp an: 
FUNCTION Laenge (S 'String) : Cardınal; 
BEGIN 
FS Mk 
THEN 
Laenge :—=O 
ELSE 
Laenge :—= succ(Laenge(St.next)) 
END, (* Laenge *) 
Am Anfang der Liste steht S, wahrend Sr.next 
das Poınter-Feld des nächsten Datensatzes an- 
spricht. Dieser Aufbau laßt sıch auch als Liste 
ansehen, dıe mıt dem nächsten Datensatz an- 
fangt. Wenn wır keın NIL finden, wird die 


Wiederholen ( Wurzelt HochZweig ):; 
dıspose ( Wurzel ) (* dann dıe Wurzel *) 
END 
END, (* Wiederholen *) 
% 


BEGIN (* BaumSort — Hauptprogramm *”) 
assıgn ( Dateı, Dateiname ), 
page ( output ), 


Writeln ( === BaumSort ===’ : 25); 

Writeln; 

Writeln ( ‘Bitte Daten eingeben (erst Nach: 
name)‘ ); 


wrıte (Name ?'), 
Einlesen ( Daten Name ), 
BetragLesen ( Daten.Schulden ), 
Wachsen ( Basıs, Daten ), (* Baumstamm 
'einpflanzen' *) 
write ('Name ?'); 
ZeileLesen ( Daten Name |, 
WHILE Daten.Name [ 1] <> chr (0) DO 
BEGIN 
BetragLesen ( Daten. Schulden ), 
Klettern ( Basıs, Daten ); 
WriteLn ( "RETURN = Ende’ 40), 
wrıte (Name ?'); 
ZeileLesen ( Daten Name ) 
END; 
(* Platz fuer weıtere Bearbeitung, dann Date: 
schreiben : *) 
WriteLn ( "Schreiben Dateı . ', DateıName ); 
rewrite ( Date: ), 
Schreiben ( Dateı, Basıs ), 
Writeln; 
Writeln ( Schulden’ : 8, ‘Name’ StringLaenge ); 
Writeln; 
reset ( Dateı ), (* Dateı lesen und ın geordneter *) 
(* Reihenfolge schreiben : *) 
WHILE NOT Eof ( Dateı ) DO 
BEGIN (* Records eınzeln lesen *) 
read ( Dateı, Daten ), 
(* dıe Felder auf den Bildschirm brıngen *) 
WITH Daten DO 
WıriteLn ( Schulden 8, ' ', Name ) 
END, 
Wiederholen ( Basıs ); (* Speicher freısetzen *) 
(* fuer andere Aufgaben *) 
END 
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Blatt für Blatt 

Das Programm „Baum- 
Sort“ setzt eine binäre 
Baumstruktur ein, um 
Daten nach Schlüsselfel- 
dern geordnet speichern 
zu können. Die einzel- 
nen Elemente werden 
dabei jeweils nach der 
alphabetischen Position 
des Namensfeldes dem 
hohen oder dem niedri- 
gen Zweig zugeordnet. 
Die Prozedur „Wachsen“ 
richtet neue Strukturele- 
mente eın, während 
„Klettern“ den Weg ın 
den richtigen NIL-Zweig 
findet. 

Das Diagramm zeigt 
das Einsortieren des 
pascal-Strings ın eine 
einfache bınäre Baum- 
struktur, deren Struktur- 
elemente einzelne Zei- 
chen (lett) enthalten. Die 
rote Markierung zeigt 
an, wie die Prozedur 
„Wachsen“ den Baum 
vergrößert. 
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new (leaf); | 
WITH leaf DO 


Kr 
KA lett<'p' »'a’,>'c' 


® 
LowBranchfHignBranch ä 


BEGIN = 
lett:= character 
LowBranch:= NIL 
HighBranch:=NIL 

END 


m Bu 


Laenge dieses Datenelementes bewertet und 
mit succ inkrementiert. 

Viele Probleme lassen sıch nur mıt Recursio- 
nen lösen. Das vorstehende Beispiel kann je- 
doch auch ohne Recursion programmıert wer- 
den (wenn auch eın wenig umständlicher): 

FUNCTION Laenge (S :String) : Cardınal; 

VAR 
N : Cardınal; 
BEGIN 
N:=0; 
WHILES <> NIL BO 
BEGIN 
Nz=N+H 1; 
S := St.next 
END; 
Laenge := N 
END; (* Laenge *) 
Die Deutlichkeit dieses Algornthmus ergibt 
sıch dabeı wıe selbstverständlich aus der re- 
cursiven Natur der Datenstruktur. 

Viele PASCAL-Compiler unterstützen Com- 
pilleranweisungen, dıe nıcht Elemente der Pro- 
grammıersprache sınd. Der ISO-Standard er- 
kennt dabeı eigentlich nur dıe Änweısung For- 
ward. Zweı Prozeduren oder Funktionen sınd 
„wechselseitig recursiv", wenn sıe sıch gegen- 
seitig aufrufen. 

In dieser Sıtuation wırd zunächst der Kopf 
des einen Unterprogramms deklanert und seın 
„Inneres" durch dıe Compileranweisung FOR- 
WARD ersetzt. Nach der vollständigen Defını- 
tıon des zweiten Moduls wırd der Kopf des er- 
sten nochmals ın abgekürzter Form (ohne Pa- 


rameterliste) angegeben und dahınter der In- 
halt des Moduls aufgeführt. Andere Compiler- 
anweisungen beeinflussen oft dıe Compiler- 
zeit, doch sollte von dıeser Möglichkeit nur we- 
nıg Gebrauch gemacht werden, wenn die Pro- 
gramme auch mit anderen Compilern funktio- 
nıeren sollen. Viele Optionen sınd nıcht über- 
tragbar und werden daher von anderen Com- 
pilern auch nıcht ausgeführt. 

Einige wenige Compiler (beispielsweise 
von HıSoft) haben eıne andere Syntax für dıe 
Deklaration des Forward-Pointers. Hıer kann 
nur das Handbuch weiterhelfen. Es gıbt jedoch 
nur wenige PASCAL-Vananten, dıe nıcht mit 
der ISO-Definition übereinstimmen. 

In den Versionen UCSD, TCL’RML, Oxford 
und HıSoft wurde dıe Prozedur dispose durch 
dıe außerhalb des Standards liegenden Proze- 
duren mark und release ersetzt. 

Eine weıtere Datenstruktur von PASCAL muß 
noch erwähnt werden: dıe „Varlante". Bısher 
haben wır für das Speichern unterschiedlicher 
Datentypen einen Record mit entsprechenden 
Feldern verwandt. Wie aber kann eın Teil oder 
der gesamte Record flexıbel gestaltet werden, 
wıe beispielsweise beim Speichern des Ge- 
burtsnamens eıner verheirateten Frau? Zuerst 
wırd der „feste" Teıl des Records definiert und 
dann der Teıl mit varııerender Länge mit CASE 
und OR eingeleitet: 

MrE 

Art = (maennlıch, weıblıch); 
Variant = RECORD 
(* erst die gemeinsamen (festen) 
Felder *) 
CASE verheiratet : boolean OF 
false : (); 
true : (Heiratsdatum : String; 
CASE Geschlecht : Art OF 
maennlich : (); 
weiblich : (Geburtsname : 
String)) 
END; (* Variant *) 
Beachten Sıe, daß dıe leeren Felder mit Klam- 
mern gekennzeichnet seın müssen. Die läng- 
ste Vanante legt den Platzbedarf der Dateı 
fest, doch läßt sıch mit Poıntern auf dıe Varıan- 
ten - new (p, true, maennlich) eine Speicher- 
platzverschwendung verhindern. 

Die wenıgen Schwächen von PASCAL wur- 
den ım Laufe der Zeit behoben. Die Sprache ıst 
außerordentlich flexibel, handlıch, leıstungs- 
stark, für zahlreiche Aufgaben geeignet und 
leıcht zu erlernen. Wenn Sıe ınnerhalb des 
ISO-Standards bleıben, gıbt es natürlıch eınıge 
Abläufe auf Systemebene, die man nıcht eın- 
setzen kann. Diese Routinen lassen sıch Je- 
doch ın Assembler oder BCPL schreiben und 
an das gewünschte PASCAL-Programm hän- 
gen. Der größte Vorteil von PASCAL ıst Jedoch 
dıe Möglichkeit, den entwickelten Code auf 
vielen Mıcros, Mınıs oder Großanlagen eınset- 
zen zu können. PASCAL kommt damit einem 
Esperanto der Computerwelt nahe. 


